home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / opdfread.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  137.7 KB  |  4,480 lines
  1. %!PS-Adobe-2.0
  2. %
  3. %        Copyright (C) 2002 Artifex Software, Inc.      All rights reserved.
  4. % 
  5. % This software is provided AS-IS with no warranty, either express or
  6. % implied.
  7. % 
  8. % This software is distributed under license and may not be copied,
  9. % modified or distributed except as expressly authorized under the terms
  10. % of the license contained in the file LICENSE in this distribution.
  11. % 
  12. % For more information about licensing, please refer to
  13. % http://www.ghostscript.com/licensing/. For information on
  14. % commercial licensing, go to http://www.artifex.com/licensing/ or
  15. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  16. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  17.  
  18. % $Id: opdfread.ps 9141 2008-10-10 08:51:42Z ken $
  19. % pdfread.ps - A procset for interpreting an ordered PDF 1.3 file.
  20.  
  21. % This module defines routines for interpreting a PDF file with
  22. % a Postscript interpreter. To convert a PDF file into Postscript 
  23. % just pre-contcatenate this file. The PDF file must satisfy 
  24. % few constraints :
  25. %
  26. % 1. It must contain only Postscript level 2 objects encoded with
  27. % the PDF 1.3 language. Higher PDF levels must be re-distilled
  28. % with CompatibilityLevel=1.3 .
  29. %
  30. % 2. Objects must be ordered so that any resource be defined before
  31. % its usage.
  32. %
  33. % 3. The PDF file must not include other PDF files.
  34. % Consequently we have a single instance of the PDF reader.
  35. % We use this fact to simplify binding of the routines.
  36. % 
  37. % 4. The PDF root object must always have the object id 1.
  38. % 
  39. % 5. Generations besides 0 are not allowed.
  40. %
  41. % 6. xref must appear after all objects.
  42. %
  43. % Assuming the currentfile isn't positionable.
  44. % As a consequence, the reader fully ignores xref.
  45.  
  46. % ====================== Error handler =======================
  47. % A general error handler prints an error to page.
  48.  
  49. 10 dict begin % A dictionary for local binding
  50.  
  51. /this currentdict def
  52. /y 720 def
  53. /ebuf 200 string def
  54.  
  55. /prnt {
  56.   36 //this /y get moveto //ebuf cvs show
  57.   //this /y 2 copy get 12 sub put
  58. } bind def
  59.  
  60. /newline {
  61.   36 //this /y get moveto
  62.   //this /y 2 copy get 12 sub put
  63. } bind def
  64.  
  65. errordict /handleerror
  66. { systemdict begin
  67.   $error begin
  68.   newerror
  69.   { (%%[ Error handled by opdfread.ps : ) print errorname //ebuf cvs print (; OffendingCommand: )
  70.     print /command load //ebuf cvs print ( ]%%) = flush
  71.     /newerror false store vmstatus pop pop 0 ne
  72.     { grestoreall
  73.     } if
  74.     errorname (VMerror) ne
  75.     { showpage
  76.     } if
  77.     initgraphics
  78.     0 720 moveto
  79.     errorname (VMerror) eq
  80.     { //this /ehsave known
  81.       { clear //this /ehsave get restore 2 vmreclaim
  82.       } if
  83.       vmstatus exch pop exch pop 
  84.     }
  85.     /Courier 12 selectfont
  86.     {
  87.       (ERROR: ) //prnt exec errorname //prnt exec
  88.       (OFFENDING COMMAND: ) //prnt exec
  89.       /command load //prnt exec
  90.       $error /ostack known {
  91.         (%%[STACK:) =
  92.         (STACK:) //prnt exec
  93.         $error /ostack get aload length {
  94.           //newline exec
  95.           dup mark eq {
  96.             (-mark-) dup = show
  97.           } {
  98.             dup type /nametype eq { 
  99.               dup xcheck not {
  100.                 (/) show
  101.                 (/) print
  102.              } if
  103.           } if
  104.           dup = //ebuf cvs show
  105.           } ifelse
  106.         } repeat
  107.       } if
  108.     } ifelse
  109.     (%%]%) =
  110.     //systemdict /showpage get exec
  111.     quit
  112.   } if
  113.   end
  114.   end
  115. } bind readonly put
  116.  
  117. end % A dictionary for local binding
  118.  
  119.  
  120. 50 dict begin
  121.  
  122. % ===================== Debugging =========================================
  123.  
  124. /DefaultSwitch  % <name> DefaultSwitch -
  125. {
  126.   dup where {
  127.     pop pop
  128.   } {
  129.     false def
  130.   } ifelse
  131. } bind def
  132.  
  133. /=string 256 string def
  134.  
  135. /=only {
  136.   //=string cvs print
  137. } bind def
  138.  
  139. /HexDigits (0123456789ABCDEF) readonly def
  140.  
  141. /PrintHex  % <int> PrintHex -
  142. { 8 {
  143.     dup -28 bitshift //HexDigits exch 1 getinterval //=only exec
  144.     4 bitshift
  145.   } repeat
  146.   pop
  147. } bind def
  148.  
  149. /PDFR_DEBUG DefaultSwitch
  150. /PDFR_DUMP DefaultSwitch
  151. /PDFR_STREAM DefaultSwitch
  152. /TTFDEBUG DefaultSwitch
  153. /RotatePages DefaultSwitch
  154. /FitPages DefaultSwitch
  155. /SetPageSize DefaultSwitch
  156.  
  157. /error  %  mark <object> .... error -
  158. { % A stub for a while.
  159.   counttomark 1 sub -1 0 {
  160.     index dup type /arraytype eq { == } { =only } ifelse
  161.   } for
  162.   () =
  163.   cleartomark
  164.   % Assuming ....Undefined is never defined. 
  165.   % Use it to emit an error.
  166.   ....Undefined
  167. } bind def
  168.  
  169. //SetPageSize {
  170.   //RotatePages //FitPages or {
  171.     mark (/RotatePages, /FitPages are not allowed with /SetPageSize) //error exec
  172.   } if
  173. } if
  174.  
  175. % ===================== Utilities =========================================
  176.  
  177. /knownget % <dict> <key> knownget <value> true
  178.           % <dict> <key> knownget false
  179. {
  180.   2 copy known {
  181.     get true
  182.   } {
  183.     pop pop false
  184.   } ifelse
  185. } bind def
  186.  
  187. /IsUpper  % <int> IsUpper <bool>
  188. { dup (A) 0 get ge exch (Z) 0 get le and
  189. } bind def
  190.  
  191. % Copy (recursive) packedarray|array to to global VM
  192. % NOTE: a packedarray will be converted to non-packed (too bad)
  193. /cpa2g {    % <packedarray|array> cpa2g <packedarray|array>
  194.   dup length array    % <src> <dest>
  195.   0 1 2 index length 1 sub {
  196.     % <src> <dest> index
  197.     dup 3 index exch get cp2g
  198.     % <src> <dest> index <globalelement>
  199.     3 copy put pop pop
  200.   } for
  201.   exch pop 
  202. } bind def
  203.  
  204. % Copy (recursive) dict to to global VM
  205. /cpd2g {
  206.   dup length dict exch {
  207.     cp2g 2 index 3 1 roll put
  208.   } forall
  209. } bind def
  210.  
  211. % Copy string to to global VM
  212. /cps2g {    % <string> cps2g <string>
  213.   dup length string copy
  214. } bind def
  215.  
  216. /cp2gprocs 
  217. << /arraytype //cpa2g /dicttype //cpd2g /packedarraytype //cpa2g /stringtype //cps2g >>
  218. def
  219.  
  220. /cp2g {        % <any> cp2g <any>
  221.         % where <any> is array | dict | string | packedarray
  222.         % NOTE: The object must be readable (not executeonly or noaccess)
  223.   dup gcheck not {
  224.     dup //cp2gprocs 1 index type 
  225.     2 copy known {
  226.       get currentglobal 3 1 roll true setglobal exec exch setglobal
  227.       % set the attributes appropriately (we must have 'read' access to get this far)
  228.       1 index wcheck not { readonly } if
  229.       1 index xcheck { cvx } if
  230.       exch pop        % discard original (local) object
  231.     } {
  232.       pop pop    % discard type
  233.     } ifelse
  234.   } if
  235. } bind def
  236.  
  237. % ===================== Work Data =========================================
  238.  
  239. /BlockBuffer 65535 string def % Make it big to load entire TrueType font
  240. /PDFReader currentdict def
  241. /ObjectRegistry 50 array def % may grow later
  242. /CurrentObject null def
  243. /DoneDocumentStructure false def
  244. /GraphicState 20 dict begin
  245.   /InitialTextMatrix matrix def
  246.   /InitialMatrix matrix currentmatrix def
  247. currentdict end def
  248. /TempMatrix matrix def
  249. /GraphicStateStack 20 array def
  250. /GraphicStateStackPointer 0 def
  251. /PDFColorSpaces 50 dict def
  252. /InstalledFonts 50 dict def
  253. /MacRomanEncodingInverse null def
  254.  
  255. % We need some structures in local VM, put then into the userdict :
  256. currentglobal false setglobal
  257. userdict /PDFR_InitialGS gstate put
  258. userdict /PDFR_Patterns 50 dict put
  259. userdict /FuncDataReader 10 dict put
  260. setglobal
  261.  
  262. % ===================== Constants =========================================
  263.  
  264. % The ExtGState elements are composite, thus need to be copied to
  265. % global VM (in case they aren't already global).
  266. /InitialExtGState 20 dict begin
  267.   /BG2 currentblackgeneration cp2g def
  268.   /UCR2 currentundercolorremoval cp2g def
  269.   /TR2 currentglobal false setglobal [ currentcolortransfer ] exch setglobal cp2g def
  270.   /HT currenthalftone cp2g def
  271. currentdict end readonly def
  272.  
  273. /InitialGraphicState 20 dict begin
  274.   /FontSize 0 def
  275.   /CharacterSpacing 0 def
  276.   /TextLeading 0 def
  277.   /TextRenderingMode 0 def
  278.   /WordSpacing 0 def
  279. currentdict end readonly def
  280.  
  281. /SimpleColorSpaceNames 15 dict begin
  282.   /DeviceGray true def
  283.   /DeviceRGB true def
  284.   /DeviceCMYK true def 
  285. currentdict end readonly def
  286.  
  287. /1_24_bitshift_1_sub 1 24 bitshift 1 sub def
  288.  
  289. /ReadFontProcs 10 dict def % Will be filled below.
  290.  
  291. % ===================== Reading PDF objects ===============================
  292.  
  293. /Register % <DefaultDaemon> <id> <obj> Register -
  294. {
  295.   exch dup                                              % d obj id id
  296.   //PDFReader /ObjectRegistry get length ge {
  297.     dup dup 2 idiv add array dup                        % d obj id [n] [n]
  298.     //PDFReader /ObjectRegistry get dup length          % d obj id [n] [n] [o] l
  299.     3 2 roll exch                                       % d obj id [n] [o] [n] l
  300.     0 exch getinterval copy pop                         % d obj id [n]
  301.     //PDFReader exch /ObjectRegistry exch put           % d obj id
  302.   } if
  303.   exch //PDFReader /ObjectRegistry get                  % d id obj r
  304.   3 1 roll                                              % d r id obj
  305.   3 copy pop get                                        % d r id obj e
  306.   dup xcheck {                                          % d r id obj e
  307.     5 4 roll pop                                        % r id obj e
  308.     //PDFR_DEBUG {
  309.       (Have a daemon for ) print 2 index =
  310.     } if
  311.     % We've got a definition daemon, execute it :
  312.     exec
  313.   } {                                                   % d r id obj e
  314.     dup null ne {                                       % d r id obj e
  315.       mark (The object ) 4 index ( already defined : ) 4 index //error exec
  316.     } {
  317.       pop
  318.     } ifelse
  319.     4 3 roll                                            % r id obj d
  320.     % Execute the default daemon :
  321.     exec
  322.   } ifelse                                              % r id obj
  323.   put                                                   %
  324. } bind def
  325.  
  326. /IsRegistered % <id> GetRegistered <bool>
  327. {
  328.   //PDFReader /ObjectRegistry get                       % id r
  329.   dup length                                            % id r l
  330.   2 index le {                                          % id r
  331.     pop pop false
  332.   } {
  333.     exch get                                            % id e
  334.     null ne
  335.   } ifelse
  336. } bind def
  337.  
  338. /GetRegistered % <id> GetRegistered <obj>
  339. {
  340.   //PDFReader /ObjectRegistry get                       % id r
  341.   dup length                                            % id r l
  342.   2 index le {                                          % id r
  343.     exch mark exch (Object ) exch ( isn't defined before needed (1).) //error exec 
  344.   } if
  345.   1 index get                                           % id e
  346.   dup xcheck {
  347.     exch mark exch (Object ) exch ( isn't defined before needed (2).) //error exec 
  348.   } { 
  349.     dup null eq {
  350.       exch mark exch (Object ) exch ( isn't defined before needed (3).) //error exec 
  351.     } if
  352.     exch pop                                            % e
  353.   } ifelse
  354. } bind def
  355.  
  356. /StandardFontNames <<
  357.   /Times-Roman true 
  358.   /Helvetica true
  359.   /Courier true
  360.   /Symbol true
  361.   /Times-Bold true
  362.   /Helvetica-Bold true
  363.   /Courier-Bold true
  364.   /ZapfDingbats true
  365.   /Times-Italic true
  366.   /Helvetica-Oblique true
  367.   /Courier-Oblique true
  368.   /Times-BoldItalic true
  369.   /Helvetica-BoldOblique true
  370.   /Courier-BoldOblique true
  371. >> def
  372.  
  373. /CleanAllResources % - CleanAllResources  -
  374. { //PDFR_DEBUG {
  375.     (CleanAllResources beg) =
  376.   } if
  377.   //PDFReader /ObjectRegistry get
  378.   dup length 0 exch 1 exch 1 sub {                     % R i
  379.     2 copy get dup xcheck {
  380.       % Don't clean a daemon.
  381.       pop pop
  382.     } {
  383.       dup null eq {
  384.         pop pop
  385.       } {
  386.         dup type /dicttype eq { /.Global known } { pop false } ifelse {
  387.           pop
  388.         } {
  389.           //PDFR_DEBUG {
  390.             (Dropping ) print dup =
  391.           } if
  392.           1 index exch /DroppedObject put
  393.         } ifelse
  394.       } ifelse
  395.     } ifelse
  396.   } for
  397.   pop
  398.   FontDirectory length dict begin
  399.   FontDirectory { 
  400.     pop    
  401.     dup //StandardFontNames exch known not {
  402.       dup null def
  403.     } if
  404.     pop
  405.   } forall
  406.   currentdict
  407.   end {
  408.     pop
  409.     //PDFR_DEBUG {
  410.        (Undefining font ) print dup =
  411.     } if
  412.     undefinefont
  413.   } forall
  414.   //PDFR_DEBUG {
  415.     (CleanAllResources end) =
  416.   } if
  417. } bind def
  418.  
  419. /PrintReference % <array> PrintReference <array>
  420. {
  421.   //PDFR_DEBUG {
  422.     ({ ) print
  423.     dup {
  424.       =only ( ) print
  425.     } forall
  426.     ( }) =
  427.   } if
  428. } bind def
  429.  
  430. /R % <id> <gen> R <daemon>
  431. { % Make a reference daemon.
  432.   0 ne {
  433.     exch mark exch (A referred object generation ) exch ( isn't 0.) //error exec
  434.   } if                                                  % id
  435.   [ % <id> proc <obj>
  436.     exch //GetRegistered /exec load 
  437.   ] cvx
  438.   //PrintReference exec
  439. } bind def
  440.  
  441. /IsObjRef %  <any> IsObjRef <bool>
  442. { 
  443.   dup type /arraytype eq {
  444.     dup length 3 eq {
  445.       dup xcheck exch
  446.       dup 0 get type /integertype eq 3 2 roll and exch
  447.       dup 1 get //GetRegistered eq 3 2 roll and exch
  448.       2 get /exec load eq and
  449.     } {
  450.       pop false
  451.     } ifelse
  452.   } {
  453.     pop false
  454.   } ifelse
  455. } bind def
  456.  
  457. /DoNothing 
  458. {
  459. } def
  460.  
  461. /RunTypeDaemon  % <id> <obj> RunTypeDaemon <id> <obj>
  462. {
  463.   dup type /dicttype eq {
  464.     dup /Type //knownget exec {
  465.       //PDFReader /TypeDaemons get exch
  466.       //knownget exec {
  467.         exec
  468.       } if
  469.     } if
  470.   } if
  471. } bind def
  472.  
  473. /obj % <id> <generation> obj <id>
  474. {
  475.   //PDFR_DEBUG {
  476.     (Defining ) print 1 index =only ( ) print dup =only ( obj) =
  477.   } if
  478.   0 ne {
  479.     exch mark exch (An object generation ) exch ( isn't 0.) //error exec
  480.   } if
  481. } bind def
  482.  
  483. /endobj  % <id> <obj> endobj -
  484. {
  485.   //PDFR_DEBUG {
  486.     (endobj ) =
  487.   } if
  488.   dup type /dicttype eq {
  489.     dup /.endobj_daemon //knownget exec {
  490.       //PDFR_DEBUG { (.endobj_daemon for ) print 2 index = } if
  491.       exec
  492.     } if
  493.   } if
  494.   dup type /dicttype eq { dup /ImmediateExec known } { false } ifelse {
  495.     pop pop
  496.   } {
  497.     //PDFR_DEBUG {
  498.       (Storing ) print 1 index =
  499.     } if
  500.     //RunTypeDaemon exec
  501.     //DoNothing 3 1 roll //Register exec
  502.   } ifelse
  503. } bind def
  504.  
  505. /StoreBlock % <buf> StoreBlock -
  506. { % Stores a (encoded) stream data block to the current object.
  507.   //PDFR_DEBUG {
  508.     (StoreBlock ) print //PDFReader /BlockCount get =only (, Length = ) print dup length =
  509.   } if
  510.   dup length string copy
  511.   //PDFReader /BlockCount get exch                      % i s
  512.   //PDFReader /CurrentObject get 3 1 roll               % o i s
  513.   put                                                   %
  514.   //PDFReader /BlockCount get 1 add
  515.   //PDFReader exch /BlockCount exch put
  516. } bind def
  517.  
  518. /CheckLength % <val> CheckNumber <val>
  519. { dup type /integertype ne {
  520.     mark (Object length isn't an integer.) //error exec
  521.   } if
  522. } bind def
  523.  
  524. /ResolveD % <dict> <key> <check> ResolveD <value>
  525. {
  526.   3 copy pop get                                        % <> key {} e
  527.   dup //IsObjRef exec {
  528.     % We've got a reference daemon, execute it :
  529.     //PDFR_DEBUG {
  530.       (Resolving ) print //PrintReference exec
  531.     } if
  532.     exec                                                % <> key {} val
  533.     exch exec                                           % <> key val
  534.   } {
  535.     exch pop
  536.   } ifelse
  537.   dup 4 1 roll                                          % val <> key val
  538.   put                                                   % val
  539. } bind def
  540.  
  541. /ResolveA   % <array> <index> <check> ResolveA <value>
  542. { 2 index 2 index get
  543.   dup //IsObjRef exec {
  544.     exec
  545.     exch exec
  546.     3 copy put
  547.   } {
  548.     exch pop
  549.   } ifelse
  550.   exch pop exch pop
  551. } bind def
  552.  
  553. /StoreStream  % <id> <obj> StoreStream <id> <obj>
  554. { % Stores a (encoded) data stream copy to the current object.
  555.   dup //PDFReader exch /CurrentObject exch put          % id obj
  556.   //PDFReader /BlockCount 0 put
  557.   dup /Length //CheckLength //ResolveD exec             % id obj l
  558.   //PDFR_DEBUG {
  559.     (StoreStream Length = ) print dup =
  560.   } if
  561.   currentfile exch () /SubFileDecode filter             % id obj file
  562.   { dup //BlockBuffer readstring {                      % id obj file buf
  563.       //StoreBlock exec
  564.     } {
  565.       //StoreBlock exec
  566.       exit
  567.     } ifelse                                            % id obj file
  568.   } loop
  569.   pop                                                   % id obj
  570.   //PDFReader /CurrentObject null put
  571.   //PDFR_DEBUG {
  572.     (StoreStream end.) =
  573.   } if
  574. } bind def
  575.  
  576. /MakeStreamDumper % <file> MakeStreamDumper <file>
  577. { % Debug purpose only.
  578.   //PDFR_DEBUG {
  579.     (MakeStreamDumper beg.) =
  580.   } if
  581.   currentglobal exch dup gcheck setglobal
  582.   [ exch                      % f
  583.     1 dict dup /c 0 put exch  % d f
  584.     1024 string               % d f s
  585.     { readstring pop          % d s
  586.       (StreamDumper ) print 1 index /c get =string cvs print ( ) print 
  587.       dup length =string cvs print ( <) print dup print (>\n) print
  588.       dup length              % d s l
  589.       3 2 roll                % s l d
  590.       dup /c get              % s l d c
  591.       3 2 roll                % s d c l
  592.       add /c exch put         % s
  593.     } /exec load    
  594.   ] 
  595.   cvx 0 () /SubFileDecode filter
  596.   exch setglobal
  597.   //PDFR_DEBUG {
  598.     (MakeStreamDumper end.) =
  599.   } if
  600. } bind def
  601.  
  602. /ShortFilterNames 15 dict begin
  603.   /AHx /ASCIIHexDecode def
  604.   /A85 /ASCII85Decode def
  605.   /LZW /LZWDecode def
  606.   /Fl  /FlateDecode def
  607.   /RL  /RunLengthDecode def
  608.   /CCF /CCITTFaxDecode def
  609.   /DCT /DCTDecode def
  610. currentdict end readonly def
  611.  
  612. /AppendFilters  % <file> <dict> AppendFilters <file>
  613. {
  614.   //PDFR_DEBUG {
  615.     (AppendFilters beg.) =
  616.   } if
  617.   dup 3 1 roll                                      % d f d
  618.   /Filter //knownget exec {                         % d f F
  619.     dup type /nametype eq {                         % d f /F
  620.       dup //ShortFilterNames exch //knownget exec {
  621.         exch pop
  622.       } if
  623.       2 index /DecodeParms //knownget exec {        % d f p /F
  624.         exch
  625.       } if
  626.       filter                                        % d f'
  627.     } {                                             % d f []
  628.       dup 0 exch 1 exch length 1 sub {              % d f [] i
  629.         2 copy get                                  % d f [] i /F
  630.         dup //ShortFilterNames exch //knownget exec {
  631.           exch pop
  632.         } if
  633.         3 1 roll                                    % d f /F [] i
  634.         4 index /DecodeParms //knownget exec {      % d f /F [] i DP
  635.           exch get                                  % d f /F [] dp
  636.         } {                                         % d f /F [] i
  637.           pop null                                  % d f /F [] dp
  638.         } ifelse
  639.         dup null eq {                               % d f /F [] dp
  640.           pop 3 1 roll filter exch                  % d f' []
  641.         } {                                         % d f /F [] dp
  642.           3 1 roll                                  % d f dp /F []
  643.           4 1 roll filter exch                      % d f' []
  644.         } ifelse
  645.       } for
  646.       pop                                           % d f'
  647.     } ifelse
  648.     //PDFR_DEBUG //PDFR_DUMP and  {
  649.       //MakeStreamDumper exec
  650.     } if
  651.   } if
  652.   exch pop
  653.   //PDFR_DEBUG {
  654.     (AppendFilters end.) =
  655.   } if
  656. } bind def
  657.  
  658. /ExecuteStream  % <id> <obj> ExecuteStream <id> <obj>
  659. { % Executes a (encoded) data stream.
  660.   dup //PDFReader exch /CurrentObject exch put          % id obj
  661.   dup /Length //CheckLength //ResolveD exec             % id obj l
  662.   //PDFR_DEBUG {
  663.     (ExecuteStream id = ) print 2 index =only ( Length = ) print dup =
  664.   } if
  665.   //PDFReader /InitialGraphicState get 
  666.   //PDFReader /GraphicState get copy pop
  667.   //PDFReader /Operators get begin
  668.   % currentfile exch () /SubFileDecode filter           % id obj file
  669.   % We would like to use the code above, 
  670.   % but HP LaserJet 1320 continues parsing after the byte count exceeds.
  671.   pop currentfile 0 (endstream) /SubFileDecode filter   % id obj file
  672.   1 index //AppendFilters exec
  673.   cvx mark exch                                         % id obj mark file
  674.   exec
  675.   counttomark 0 ne {
  676.     mark (Data left on ostack after an immediate stream execution.) //error exec
  677.   } if
  678.   cleartomark                                           % id obj
  679.   end % Operators
  680.   //PDFR_DEBUG {
  681.     (ExecuteStream end.) =
  682.   } if
  683.   //PDFReader /CurrentObject null put
  684.   dup /IsPage known {
  685.     dup /Context get /NumCopies //knownget exec {
  686.       1 sub {
  687.         copypage
  688.       } repeat
  689.     } if
  690.     showpage
  691.   } if
  692. } bind def
  693.  
  694. /stream  % <id> <obj> stream <id> <obj>
  695. { 
  696.   //PDFR_DEBUG {
  697.     1 index =only ( stream) =
  698.   } if                                                  % id obj
  699.   % Run the object definition daemon, if exists :
  700.   //PDFReader /ObjectRegistry get dup length 3 index    % id obj r l id
  701.   gt {                                                  % id obj r
  702.     2 index get 
  703.     dup xcheck {
  704.       exec
  705.       % Disable the daemon :
  706.       //PDFReader /ObjectRegistry get 2 index null put
  707.     } {
  708.       pop
  709.     } ifelse
  710.   } {
  711.     pop
  712.   } ifelse                                              % id obj
  713.   dup /ImmediateExec known {
  714.     dup /GlobalExec //knownget exec {
  715.       currentglobal 4 1 roll
  716.       setglobal
  717.       //ExecuteStream exec
  718.       3 2 roll setglobal
  719.     } {
  720.       //ExecuteStream exec
  721.     } ifelse
  722.   } {
  723.     //StoreStream exec
  724.   } ifelse
  725.   dup /.CleanResources //knownget exec {
  726.     /All eq {
  727.       //CleanAllResources exec
  728.     } if
  729.   } if
  730. } bind def
  731.  
  732. /HookFont % <id> <obj> <font_descriptor> HookFont <id> <obj>
  733. { 
  734.     //PDFR_DEBUG {
  735.       (Loaded the font ) print dup /FontName get =
  736.     } if
  737.     {
  738.       dup /FontFileType get dup /Type1 eq exch /MMType1 eq or {  % id obj fd
  739.         % We assume that the Type 1 font has same name with no prefix
  740.         % due to pdfwrite specifics.
  741.         % We use it to find the font after it is defined.
  742.         % We could redefine 'definefont' for hooking the font, 
  743.         % but we don't think that it could be guaranteedly portable : 
  744.         % a 3d party PS interpreter may set a special context 
  745.         % when running the font file.
  746.         % Note that this mechanizm does not depend on the
  747.         % font name uniquity, because the last 'definefont'
  748.         % is only important.
  749.         dup /FontName get                               % id obj fd fn
  750.         //PDFReader /RemoveFontNamePrefix get exec 
  751.         findfont                                        % id obj fd g f
  752.         exit
  753.       } if
  754.       dup /FontFileType get /TrueType eq {              % id obj fd
  755.         //PDFReader /MakeType42 get exec
  756.         //PDFR_DEBUG {
  757.           (Font dict <<) =
  758.           dup {
  759.             1 index /sfnts eq {
  760.               exch pop
  761.               (/sfnts [) print
  762.               {
  763.                 (-string\() print length //=only exec (\)- ) =
  764.               } forall
  765.               (]) =
  766.             } {
  767.               exch //=only exec ( ) print ==
  768.             } ifelse
  769.           } forall
  770.           (>>) =
  771.         } if
  772.         dup /FontName get exch definefont
  773.         exit
  774.       } if
  775.       mark (FontHook has no proc for ) 2 index /FontFileType get //error exec
  776.     } loop
  777.     /Font exch put                                      % id obj
  778. } bind def
  779.  
  780. /endstream % <id> <obj> endstream <id> <obj>
  781. { 
  782. } bind def
  783.  
  784. /xref % - xref -
  785. { 
  786.   //PDFR_DEBUG {
  787.     (xref) =
  788.     //PDFR_DUMP {
  789.       //PDFReader /ObjectRegistry get ==
  790.     } if
  791.   } if
  792.   end % The procset
  793.   count 0 ne {
  794.     mark (Excessive data on estack at the end of the interpretation.) //error exec
  795.   } if
  796.   currentfile 1 (%%EOF) /SubFileDecode filter
  797.   flushfile
  798.   cleardictstack
  799. } bind def
  800.  
  801. % ===================== Restoring the PDF Document Structure ===============
  802.  
  803. /ResolveDict  % <dict> /ResolveDict -
  804. { dup {                                                 % d key val
  805.     pop 1 index exch                                    % d cp key
  806.     //DoNothing //ResolveD exec                         % d obj
  807.     pop                                                 % d
  808.   } forall
  809.   pop                                                   %
  810. } bind def
  811.  
  812. /SetupPageView  % <obj> SetupPageView -
  813. {
  814.   //PDFR_DEBUG {
  815.     (SetupPageView beg) =
  816.   } if
  817.   //GraphicState /InitialMatrix get setmatrix
  818.   /MediaBox get aload pop                               % bx0 by0 bx1 by1
  819.   3 index neg 3 index neg translate % Temporary move to origin
  820.   3 -1 roll sub 3 1 roll exch sub exch                  % bw bh
  821.   userdict  /.HWMargins //knownget exec {
  822.     aload pop
  823.   } {
  824.     currentpagedevice /.HWMargins //knownget exec {
  825.       aload pop
  826.     } {
  827.       0 0 0 0
  828.     } ifelse
  829.   } ifelse
  830.   currentpagedevice /PageSize get aload pop
  831.   3 -1 roll sub 3 1 roll exch sub exch                  % bw bh px0 py0 px1 py1
  832.   exch 3 index sub exch 3 index sub                     % bw bh px0 py0 pw ph
  833.   //SetPageSize {
  834.     //PDFR_DEBUG {
  835.       (Setting page size to ) print 1 index //=only exec ( ) print dup =
  836.     } if
  837.     pop pop 3 index 3 index 2 copy                      % bw bh px0 py0 bw bh bw bh
  838.     currentglobal false setglobal 3 1 roll              % bw bh px0 py0 bw bh bool bw bh
  839.     2 array astore                                      % bw bh px0 py0 bw bh bool []
  840.     << exch /PageSize exch >> setpagedevice             % bw bh px0 py0 bw bh bool
  841.     userdict /PDFR_InitialGS gstate put
  842.     setglobal                                           % bw bh px0 py0 bw bh
  843.   } if
  844.   //RotatePages {
  845.     2 copy gt 6 index 6 index gt ne {
  846.       % a rotation is useful except it fits with no rotation.
  847.       1 index 5 index le 1 index 5 index le and not
  848.     } {
  849.       false
  850.     } ifelse
  851.   } {
  852.     false
  853.   } ifelse
  854.   { //FitPages {
  855.       1 index 5 index div 1 index 7 index div           % bw bh px0 py0 pw ph sx sy
  856.       2 copy gt {
  857.         exch
  858.       } if
  859.       pop dup scale                                     % bw bh px0 py0 pw ph
  860.     } if
  861.     90 rotate
  862.     0 5 index neg translate
  863.   } {
  864.     //FitPages {
  865.       1 index 6 index div 1 index 6 index div           % bw bh px0 py0 pw ph sx sy
  866.       2 copy gt {
  867.         exch
  868.       } if
  869.       pop dup scale                                     % bw bh px0 py0 pw ph
  870.     } if
  871.   } ifelse                                               
  872.   pop pop                                               % bw bh px0 py0
  873.   translate                                             % bw bh
  874.   pop pop                                               %
  875.   //PDFR_DEBUG {
  876.     (SetupPageView end) =
  877.   } if
  878. } bind def
  879.  
  880. /PageContentsDaemon % <id> <obj> <node> PageContentsDaemon <id> <obj>
  881. { % Note: an excessive operand from a prebond procedure.
  882.   //PDFR_DEBUG {
  883.     (Executing PageContentsDaemon for ) print 2 index =
  884.   } if                                                  % id obj node
  885.   1 index exch /Context exch put                        % id obj
  886.   dup /ImmediateExec true put
  887.   dup /IsPage true put
  888.   dup /Context get //SetupPageView exec
  889. } bind def
  890.  
  891. /FontFileDaemon % <id> <obj> <font_descriptor> FontFileDaemon <id> <obj>
  892. { % Note: an excessive operand from a prebond procedure.
  893.   //PDFR_DEBUG {
  894.     (Executing FontFileDaemon for ) print 2 index =
  895.   } if
  896.   % We need any font resource that refers this descriptor
  897.   % to know the font type. Assuming that FontDescriptorDaemon
  898.   % provided FontFileType.
  899.   dup /FontFileType get                                 % id obj fd ft
  900.   2 index exch                                          % id obj fd obj ft
  901.   dup //ReadFontProcs exch //knownget exec {            % id obj fd obj ft proc
  902.      exch pop exec                                      % id obj fd
  903.   } {
  904.     mark (FontFile reader for ) 2 index ( isn't implemented yet.) //error exec
  905.   } ifelse
  906.   //PDFR_DEBUG {
  907.     (FontFileDaemon end) =
  908.   } if                                                  % id obj fd
  909.   pop
  910. } bind def
  911.  
  912. /FontDescriptorDaemon % <id> <obj> <font_resource> FontDescriptorDaemon <id> <obj>
  913. { % Note: an excessive operand from a prebond procedure.
  914.   //PDFR_DEBUG {
  915.     (Executing FontDescriptorDaemon for ) print 2 index =
  916.   } if                                                  % id obj fr
  917.   %HACK BEG assuming an own font for each font descriptor
  918.           % to provide an access to PDFEncoding
  919.           % from MakeType42, ComposeCharStrings.
  920.     2 copy /FontResource exch put
  921.   %HACK END
  922.   /Subtype get 1 index exch /FontFileType exch put
  923. } bind def
  924.  
  925. /UnPDFEscape {    % <namepdf> UnPDFEscape <nameps>
  926.   dup dup length string cvs                    % /namepdf (name)
  927.   dup (#) search {
  928.     % name contains PDF-style escapes ("#hh") that need to be removed
  929.     {                                                % ... (po..st) (#) (pre)
  930.       pop                                            % ... (po..st) (#)
  931.       (16#--) 2 index 0 2 getinterval                % ... (po..st) (#) (16#--) (po)
  932.       1 index 3 2 getinterval copy pop                % ... (po..st) (#) (16#po)
  933.       cvi                                            % ... (po..st) (#) 16#po
  934.       0 exch put                                    % ... (po..st); 16#po patched into (#)
  935.       0                                                % ... (po..st) 0
  936.       1 index 2 1 index length 2 sub getinterval    % ... (po..st) 0 (..st)
  937.       3 copy putinterval                            % ... (..stst) 0 (XXst)
  938.       length                                        % ... (..stst) 0 LEN_OF_(po..st)-2
  939.       3 copy exch put                                % ... (..st\0t) 0 LEN_OF_(po..st)-2
  940.       getinterval                                    % ... (..st), stored at begining of old (po..st)
  941.       (#) search not {
  942.     pop exit                    % /namepdf (nameps\0..)
  943.       } if
  944.     } loop
  945.     % we have a '\0' marker (not allowed in PDF names) after all usefull characters
  946.     (\0) search pop exch pop exch pop
  947.     cvn
  948.     exch pop
  949.   } {
  950.     pop pop
  951.   } ifelse
  952. } bind def
  953.  
  954. /TypeDaemons <<  % <id> <obj> proc <id> <obj>
  955.   /Page 
  956.   { //PDFR_DEBUG {
  957.       (Recognized a page.) =
  958.     } if
  959.     dup /Contents //knownget exec {                     % id obj c
  960.       0 get //DoNothing exch                            % id obj dn id1
  961.       [ % <id> <obj> proc <id> <obj>
  962.         3 index //PageContentsDaemon /exec load
  963.       ] cvx                                             % id obj {}
  964.       //Register exec                                   % id obj
  965.     } {
  966.       (fixme: page with no Contents won't be printed.) =
  967.     } ifelse
  968.   } bind
  969.   /FontDescriptor
  970.   { //PDFR_DEBUG {
  971.       (Recognized a font descriptor.) =
  972.     } if
  973.     dup /FontName //knownget exec {
  974.     1 index /FontName 3 -1 roll //UnPDFEscape exec put
  975.     } if
  976.     dup dup /FontFile known {/FontFile} {/FontFile2} ifelse 
  977.     //knownget exec {                                 % id obj ff
  978.       0 get //DoNothing exch                          % id obj dn id1
  979.       [ % <id> <obj> proc <id> <obj>
  980.         3 index //FontFileDaemon /exec load
  981.       ] cvx                                           % id obj {}
  982.       //Register exec                                 % id obj
  983.     } {
  984.       % FontFile3 are not implemented yet.
  985.       (Font descriptor ) print 1 index =only ( has no FontFile.) =
  986.     } ifelse
  987.   } bind
  988.   /Font
  989.   { //PDFR_DEBUG {
  990.       (Recognized a font resource.) =
  991.     } if
  992.     dup /BaseFont //knownget exec {
  993.       //UnPDFEscape exec 2 copy /BaseFont exch put
  994.       % cache the installed font (if any) before replacing it.
  995.       //PDFReader /RemoveFontNamePrefix get exec
  996.       currentglobal exch % A hack against HP LaserJet 1320 bug :
  997.                          % It sets the local allocation mode
  998.                          % when 'resourcestatus' fails.
  999.       dup /Font resourcestatus {
  1000.         pop pop
  1001.         //PDFReader /GetInstalledFont get exec pop
  1002.       } {
  1003.         pop
  1004.       } ifelse
  1005.       setglobal
  1006.     } if
  1007.     dup /FontDescriptor //knownget exec {               % id obj fd
  1008.       0 get                                             % id obj id1
  1009.       dup //IsRegistered exec {                         % id obj id1
  1010.         //PDFR_DEBUG {
  1011.           (already registered ) print dup =
  1012.         } if
  1013.         pop
  1014.       } {
  1015.         //DoNothing exch                                % id obj dn id1
  1016.         [ % <id> <obj> proc <id> <obj>
  1017.           3 index //FontDescriptorDaemon /exec load
  1018.         ] cvx                                           % id obj {}
  1019.        //Register exec                                  % id obj
  1020.       } ifelse
  1021.     } if
  1022.   } bind
  1023. >> def
  1024.  
  1025. /MakeStreamReader % <obj> MakeStreamReader <file>
  1026. { dup
  1027.   [ 
  1028.     exch
  1029.     //PDFR_DEBUG {
  1030.       (Stream proc )
  1031.       /print load
  1032.       //PDFR_STREAM {
  1033.         (<)
  1034.         /print load
  1035.       } if
  1036.     } if
  1037.     1 dict dup /i -1 put
  1038.     /dup load
  1039.     /i 
  1040.     /get load
  1041.     1
  1042.     /add load
  1043.     /dup load
  1044.     3 
  1045.     1 
  1046.     /roll load
  1047.     /i
  1048.     /exch load
  1049.     /put load
  1050.     //knownget
  1051.     /exec load 
  1052.     /not load
  1053.     { () }
  1054.     /if load
  1055.     //PDFR_DEBUG {
  1056.       //PDFR_STREAM {
  1057.         /dup load
  1058.         /print load
  1059.         (>)
  1060.         /print load
  1061.       } if
  1062.       ( end of stream proc.\n)
  1063.       /print load
  1064.     } if
  1065.   ] cvx
  1066.   //PDFR_DEBUG {
  1067.     (Stream reader ) print dup ==
  1068.   } if
  1069.   0 () /SubFileDecode filter
  1070.   exch //AppendFilters exec
  1071. } bind def
  1072.  
  1073. /RunDelayedStream % <stream_obj> RunDelayedStream -
  1074. {
  1075.   //MakeStreamReader exec                                       % file
  1076.   mark exch
  1077.   cvx exec                                                      %
  1078.   counttomark 0 ne {
  1079.     mark (Data left on ostack after a delayed stream execution.) //error exec
  1080.   } if
  1081.   cleartomark
  1082. } bind def
  1083.  
  1084. % ===================== Font Management ======================
  1085.  
  1086. //ReadFontProcs begin
  1087.   /Type1   % <font_descriptor> <FontFile_object> Type1 <font_descriptor>
  1088.   { //PDFR_DEBUG {
  1089.       (ReadFontProcs.Type1) =
  1090.     } if
  1091.     dup /.endobj_daemon [ 4 index //HookFont /exec load ] cvx put
  1092.     dup /ImmediateExec true put
  1093.     /GlobalExec true put
  1094.   } bind def
  1095.   /MMType1 //Type1 def
  1096.   /TrueType   % <font_descriptor> <FontFile_object> TrueType <font_descriptor>
  1097.   { //PDFR_DEBUG {
  1098.       (ReadFontProcs.TrueType) =
  1099.     } if
  1100.     dup /.endobj_daemon [ 4 index //HookFont /exec load ] cvx put
  1101.     pop
  1102.   } bind def
  1103. end
  1104.  
  1105. % A working dictionary to hold items related to reading a TrueType font
  1106. % and converting into a type 42 font, especially regarding creating the sfnts
  1107. % array of strings, and ensuring strings are split on table boundaries and
  1108. % for the glyf table, on glyph boundaries.
  1109. %
  1110. /.opdloadttfontdict 50 dict def
  1111. .opdloadttfontdict begin 
  1112.  
  1113. /maxstring 65400 def    % less than the maximum length of a PostScript string,
  1114.                         % must be a multiple of 4 (for hmtx / loca / vmtx)
  1115. end
  1116.  
  1117. % Uses an insertion sort to sort the contents of an array,
  1118. % the sorted array is returned. Takes the array to sort and a 
  1119. % comparison procedure. The comparison procedure must take two
  1120. % arguments, and return a boolean. The return value should be
  1121. % false if arguments incorrectly ordered, true if they are 
  1122. % already in the correct order.
  1123. %
  1124. % [Array to sort] {comparisaon proc} InsertionSort [Sorted array]
  1125. %
  1126. /.InsertionSort
  1127. {
  1128.     /CompareProc exch def
  1129.     /Array exch def
  1130.     1 1 Array length 1 sub
  1131.     {
  1132.         /Ix exch def
  1133.         /Value1 Array Ix get def
  1134.  
  1135.         /Jx Ix 1 sub def
  1136.         {
  1137.             Jx 0 lt {
  1138.                 exit
  1139.             } if
  1140.             /Value2 Array Jx get def
  1141.             Value1 Value2 CompareProc {
  1142.                 exit
  1143.             } if
  1144.             
  1145.             Array Jx 1 add Value2 put
  1146.             /Jx Jx 1 sub def
  1147.         } loop
  1148.         Array Jx 1 add Value1 put
  1149.     } for
  1150.     Array
  1151. } bind def
  1152.  
  1153. %
  1154. % Utility rourtines to insert a TrueType data type
  1155. %
  1156. % <string> <index> <integer> putu16 -
  1157. /putu16 {
  1158.   3 copy -8 bitshift put
  1159.   exch 1 add exch 16#ff and put
  1160. } bind def
  1161. % <string> <index> <integer> putu32 -
  1162. /putu32 {
  1163.   3 copy -16 bitshift putu16
  1164.   exch 2 add exch 16#ffff and putu16
  1165. } bind def
  1166.  
  1167. %
  1168. % Utility routines to read TrueType table data, returning
  1169. % either a string or an array of strings depending on the 
  1170. % table length.
  1171. %
  1172.  
  1173. % Read a table as a single string.
  1174. % <file> <length> .readtable <string>
  1175. /.readtable {
  1176.   dup dup 1 and add string
  1177.         % Stack: f len str
  1178.   dup 0 4 -1 roll getinterval
  1179.         % Stack: f str str1
  1180.     % Because of the absurd PostScript specification that gives an
  1181.     % error for reading into an empty string, we have to check for
  1182.     % this explicitly here.
  1183.   3 -1 roll exch
  1184.   dup () ne { readstring } if pop pop
  1185. } bind def
  1186.  
  1187. % Read a big table (one that may exceed 64K).
  1188. % <file> <length> .readbigtable <string[s]>
  1189. /.readbigtable {
  1190.   dup maxstring lt {
  1191.     .readtable
  1192.   } {
  1193.     currentuserparams /VMReclaim get -2 vmreclaim
  1194.     [ 4 2 roll {
  1195.         % Stack: mark ... f left
  1196.       dup maxstring le { exit } if
  1197.       1 index maxstring string readstring pop 3 1 roll maxstring sub
  1198.     } loop .readtable ]
  1199.     exch vmreclaim
  1200.   } ifelse
  1201. } bind def
  1202.  
  1203. % ReadTTF reads the tables and so on from a TreuType font into memory
  1204. % so that they are available for later processing.
  1205. %
  1206. % <filename> ReadTTF - 
  1207. %
  1208. /ReadTTF
  1209. {
  1210.   .opdloadttfontdict begin
  1211.   /TTFontFile exch def
  1212.   
  1213.   % Table directory:
  1214.   %  version       -    fixed (4 bytes)
  1215.   %  numTables     -    USHORT (2 bytes)
  1216.   %  searchRange   -    USHORT (2 bytes)
  1217.   %  entrySelector -    USHORT (2 bytes)
  1218.   % Read Table
  1219.   /TableDir TTFontFile 12 string readstring pop def
  1220.   
  1221.   % There are numTables table directory entries:
  1222.   %   tag          -    ULONG (4 bytes)
  1223.   %   checkSum     -    ULONG (4 bytes)
  1224.   %   offset       -    ULONG (4 bytes)
  1225.   %   length       -   ULONG (4 bytes)
  1226.   % Read entries
  1227.   /tables TTFontFile TableDir 4 getu16 16 mul string readstring pop def
  1228.   
  1229.   % Create dictionary to store directory entries.
  1230.   /tabarray tables length 16 idiv array def
  1231.   
  1232.   % Check version for TrueType collection
  1233.   TableDir 0 4 getinterval (ttcf) eq {
  1234.       QUIET not { (Can't handle TrueType font Collections.) = } if
  1235.       /.loadttfonttables cvx /invalidfont signalerror
  1236.   } {
  1237.     % There are ((length of tables string) / 16) Table directory entries
  1238.     % Get and store each in turn
  1239.     0 16 tables length 1 sub {
  1240.       % Get each directory entry as a 16-byte string
  1241.       dup                                       % index index
  1242.       tables exch 16 getinterval                % index (string)
  1243.         exch 16 div cvi exch                    % index/16 (string)
  1244.       tabarray  3 1 roll put
  1245.     } for 
  1246.   } ifelse
  1247.   
  1248.   % We need the tables in the order they occur in the file, so sort
  1249.   % by 'offset'.
  1250.   tabarray { exch 8 getu32 exch 8 getu32 gt} .InsertionSort pop
  1251.  
  1252.   % Now we read the content of each table in turn. If the table is < 64K
  1253.   % then we store it in a single string. If its more, we store it in an 
  1254.   % array of strings. The table contents are stored in 'tabs' in the same
  1255.   % order as they are read from the file, as per the sorted array 'tabarray'.
  1256.   /Read TableDir length tables length add def
  1257.   /tabs [
  1258.     tabarray {
  1259.       % Get offset (from start of file) of next table
  1260.       dup 8 getu32                                        % () offset
  1261.       % Subtract amount read so far 
  1262.       Read sub                                            % () offset-Read
  1263.       dup 0 gt {
  1264.       % Read and discard any extra padding bytes          % () offset-Read
  1265.       dup string TTFontFile exch readstring pop pop       % () offset-Read 
  1266.       % Update bytes read
  1267.       Read add /Read exch def                             % ()
  1268.       } {
  1269.        pop                                                % ()
  1270.       } ifelse
  1271.       % Find length of this table and add it to bytes read
  1272.       12 getu32                                           % () tablelength
  1273.       dup Read add                                        % () tablelength tablelength+Read
  1274.       /Read exch def                                      % () tablelength
  1275.       TTFontFile exch .readbigtable                            
  1276.     } forall
  1277.   ] def
  1278.   end % .opdloadttfontdict  
  1279. } bind def
  1280.  
  1281. % GetLocaType finds the head table in tabarray, which gives
  1282. % an index into the 'tabs' array where the data is stored.
  1283. % From that data we extract the loca type (short or long).
  1284. %
  1285. % - GetLocaType -
  1286. %
  1287. /GetLocaType
  1288. {
  1289.   0 1 tabarray length 1 sub{
  1290.                                   % control-variable
  1291.     dup tabarray exch get         % control-variable ()
  1292.     0 4 getinterval (head) eq{    % control-variable bool
  1293.       tabs exch get               % ()
  1294.       50 gets16
  1295.       /LocaType exch def 
  1296.       exit
  1297.     } {
  1298.       pop % control variable      % -
  1299.     } ifelse
  1300.   } for
  1301. } bind def
  1302.  
  1303. % GetNumGlyphs finds the maxp table in tabarray, which gives
  1304. % an index into the 'tabs' array where the data is stored.
  1305. % From that data we extract the number of glyphs in the font.
  1306. %
  1307. % - GetNumGlyphs -
  1308. %
  1309. /GetNumGlyphs
  1310. {
  1311.   0 1 tabarray length 1 sub{
  1312.                                   % control-variable
  1313.     dup tabarray exch get         % control-variable ()
  1314.     0 4 getinterval (maxp) eq{    % control-variable bool
  1315.       % Get the maxp string 
  1316.       % from the tabs array
  1317.       tabs exch get               % ()
  1318.       4 getu16                    % int
  1319.       /NumGlyphs exch def
  1320.       exit                        % int
  1321.     } {
  1322.       pop % control variable      % -
  1323.     } ifelse
  1324.   } for
  1325. } bind def
  1326.  
  1327. % StringtoLoca takes a string, and an index in to an array
  1328. % where the loca results should be stored from. It reads 
  1329. % along the string getting either 2-byte or 4-byte values
  1330. % (depends on loca type) and stores them in the array at
  1331. % successive locations. Leaves the next unused location
  1332. % on the stack at end (easy to process multiple strings).
  1333. %
  1334. % string ArrayIndex StringToLoca  ArrayIndex
  1335. %
  1336. /StringToLoca
  1337. {    
  1338.   /LocaIndex exch def                        % ()
  1339.   /StringOffset 0 def                        % ()
  1340.   {    
  1341.     dup length StringOffset gt {             % () 
  1342.       dup                                    % ()
  1343.       LocaType 1 eq{
  1344.         StringOffset getu32                  % () loca
  1345.         LocaArray LocaIndex 3 -1 roll put    % ()
  1346.         /LocaIndex LocaIndex 1 add def       % ()
  1347.         /StringOffset StringOffset 4 add     % ()
  1348.         def
  1349.       } {
  1350.         dup                                  % () loca
  1351.         StringOffset getu16                  % ()
  1352.         LocaArray LocaIndex 3 -1 roll put    % ()
  1353.         /LocaIndex LocaIndex 1 add def       % () 
  1354.         /StringOffset StringOffset 4 add     % ()
  1355.         def
  1356.       } ifelse
  1357.     }{                                       % ()
  1358.       pop                                    % -
  1359.       LocaIndex                              % return index
  1360.       exit
  1361.     }ifelse
  1362.   } loop
  1363. } bind def
  1364.  
  1365. % GetSortedLoca reads the loca table, and sorts it by offset
  1366. % this is so that we can walk up the array looking for an approporiate
  1367. % place to split strings. The result is stored in LocArray
  1368. %
  1369. % - GetSortedLoca -
  1370. %
  1371. /GetSortedLoca
  1372. {
  1373.   NumGlyphs 1 add array /LocaArray exch def
  1374.   
  1375.   % Get the loca table
  1376.   0 1 tabarray length 1 sub{
  1377.                                  % control-variable
  1378.     dup tabarray exch get        % control-variable ()
  1379.     0 4 getinterval (loca) eq{   % control-variable bool
  1380.       % Get the loca string 
  1381.       % from the tabs array
  1382.       tabs exch get              % ()
  1383.       exit
  1384.     } {
  1385.       pop % control variable     % -
  1386.     } ifelse
  1387.   } for
  1388.  
  1389.   % If its a single string handle the easy way
  1390.   dup type /stringtype eq {
  1391.     0 StringToLoca pop
  1392.   }{
  1393.     % Otherwise its an array, process each string in the array
  1394.     0 exch % Starting LocaArray index
  1395.     {
  1396.       exch StringToLoca
  1397.     }forall
  1398.     pop % final LocaArray index
  1399.   }ifelse
  1400.  
  1401.   % Now we've read all the locations, sort them so 
  1402.   % we can figure out where to break the strings
  1403.   LocaArray {gt} .InsertionSort pop
  1404. } bind def
  1405.  
  1406. % Updates internal storage with a new string from the
  1407. % GlyfArray
  1408. % - GetWorkingString -
  1409. /GetWorkingString
  1410. {
  1411.   WorkString 0
  1412.   GlyfArray GlyfStringIndex get
  1413.   putinterval
  1414.   % Update the available bytes
  1415.   /WorkBytes GlyfArray GlyfStringIndex get length def
  1416.   % Set index to get data from next string in array
  1417.   /GlyfStringIndex GlyfStringIndex 1 add def
  1418. } bind def
  1419.  
  1420. % Returns a string with the requested number of bytes taken
  1421. % from WorkingString. There must be enough data in WorkingString to
  1422. % satisfy the request
  1423. %
  1424. /GetWorkingBytes
  1425. {
  1426.   /BytesToRead exch def
  1427.   % Get 'BytesToRead' bytes from working store
  1428.   WorkString 0 BytesToRead getinterval
  1429.   dup length string copy
  1430.   % Get remaining bytes from working store
  1431.   WorkString BytesToRead WorkBytes BytesToRead sub getinterval
  1432.   dup length string copy
  1433.   % replace first 'n' bytes of working store with unread bytes
  1434.   WorkString 0 3 -1 roll putinterval
  1435.   % Subtract bytes read from bytes available
  1436.   /WorkBytes WorkBytes BytesToRead sub def
  1437. } bind def
  1438.  
  1439. % Read 'int' bytes from GlyfArray strings, return string composed
  1440. % of those bytes
  1441. %
  1442. % int GetGlyfBytes string
  1443. /GetGlyfBytes
  1444. {
  1445.   /ToRead exch def
  1446.   
  1447.   % If we have no available data, get soem from the array of
  1448.   % glyf strings
  1449.   WorkBytes 0 eq {
  1450.     GetWorkingString
  1451.   } if
  1452.  
  1453.   WorkBytes ToRead ge {
  1454.     ToRead string dup 0
  1455.     ToRead GetWorkingBytes putinterval
  1456.   }{
  1457.     % Create a string sized to hold the target data
  1458.     ToRead string
  1459.     % Get remaining stored bytes, and put at the start
  1460.     % of the string
  1461.     dup 
  1462.     % Start of string
  1463.     0 
  1464.     % Get remaining bytes
  1465.     WorkString 0 WorkBytes getinterval 
  1466.     % store at start of output string
  1467.     putinterval
  1468.     
  1469.     dup
  1470.     % Location in output to store data from next string 
  1471.     WorkBytes 
  1472.     % amout of data required to read from next string
  1473.     ToRead WorkBytes sub
  1474.     % Get the next string from the array of strings
  1475.     GetWorkingString
  1476.     % Get a string containing the required data, updating
  1477.     % the internal data storage
  1478.     GetWorkingBytes
  1479.     % put the data at the end of the stored data in the 
  1480.     % output string
  1481.     putinterval
  1482.   } ifelse
  1483. } bind def
  1484.  
  1485. % Given an array of glyf strings, returns an array of strings
  1486. % split on glyf boundaries
  1487. %
  1488. % [] SplitGlyf []
  1489. %
  1490. /SplitGlyf
  1491. {
  1492.   /GlyfArray exch def
  1493.   /DestArray GlyfArray length 2 mul array def
  1494.   /DestArrayIndex 0 def
  1495.  
  1496.   /LastLoca 0 def
  1497.   /NextLocaIndex 0 def
  1498.   /LastLocaIndex 0 def
  1499.     
  1500.   /GlyfStringIndex 0 def
  1501.   /WorkString maxstring string def
  1502.   /WorkBytes 0 def
  1503.   
  1504.   % Find appropriate next loca
  1505.   {
  1506.     % Get location of next glyph
  1507.     LocaArray NextLocaIndex get                      % int
  1508.     % subtract location of last point to get
  1509.     % the actual bytes between
  1510.     LastLoca sub maxstring gt                        % int bool 
  1511.     {
  1512.       LocaArray LastLocaIndex get LastLoca sub
  1513.       GetGlyfBytes                                   % ()
  1514.       DestArray DestArrayIndex 3 -1 roll put         % -
  1515.       /DestArrayIndex DestArrayIndex 1 add def       % -
  1516.       LocaArray LastLocaIndex get /LastLoca exch def % -
  1517.     } {                                              % int
  1518.       /LastLocaIndex NextLocaIndex def               % -
  1519.       /NextLocaIndex NextLocaIndex 1 add def         % -
  1520.       NextLocaIndex NumGlyphs gt                     % bool
  1521.       {
  1522.         WorkBytes                                    % int
  1523.         GlyfStringIndex GlyfArray length lt {        % int bool
  1524.           GlyfArray GlyfStringIndex get length       % int
  1525.           add string dup                             % (d) (d)
  1526.           0                                          % (d) (d) 0
  1527.           WorkString 0 WorkBytes getinterval         % (d) (d) (s)
  1528.           putinterval                                % (d)
  1529.           dup                                        % (d) (d)
  1530.           WorkBytes                                  % (d) (d) int
  1531.           GetWorkingString                           % (d) (d) int
  1532.           WorkString 0 WorkBytes getinterval         % (d) (d) int (s)
  1533.           putinterval                                % (d)
  1534.         } {
  1535.           pop                                        % -
  1536.           WorkString 0 WorkBytes getinterval         % ()
  1537.         } ifelse
  1538.         dup length string copy
  1539.         DestArray DestArrayIndex 3 -1 roll put
  1540.         exit
  1541.       } if
  1542.     } ifelse
  1543.   } loop
  1544.   DestArray
  1545.   
  1546. } bind def
  1547.  
  1548. % ProcessTTData looks at the data stored in the 'tabs' array and does several things:
  1549. % 1) Make sure strings representing tables are multiples of 4 bytes long
  1550. % 2) For arrays representing tables, make sure the total string length is a multiple
  1551. %    of 4 bytes long, to ensure the table is a multiple of 4 bytes.
  1552. % 3) Handle the glyf table specislly, each string in this array must be split on the
  1553. %    boundary of a glyf. Use the loca table to determine where the split should happen
  1554. %    and build a new array of strings split appropriately.
  1555. %
  1556. % - ProcessTTData -
  1557. %
  1558. /ProcessTTData
  1559. {
  1560.   .opdloadttfontdict begin
  1561.     % Make sure all the strings are a multiple of 4 bytes
  1562.     0 1 tabarray length 1 sub{
  1563.         /ix exch def
  1564.         tabarray ix get
  1565.         12 getu32 dup maxstring le {
  1566.           % String < 64Kb, still need to check if its a multiple of 4
  1567.           dup 4 mod 0 ne {
  1568.             4 div cvi 1 add 4 mul string /newstring exch def
  1569.             /oldstring tabs ix get def
  1570.             newstring 0 oldstring putinterval
  1571.             0 1 newstring length oldstring length sub 1 sub {
  1572.               newstring exch oldstring length add 0 put
  1573.             } for
  1574.             tabs ix newstring put
  1575.           } {
  1576.             % table size is a multiple of 4, don't need to promote it
  1577.             pop
  1578.           } ifelse
  1579.         }{
  1580.           % table size > 64K, so this is an array of strings, not a string
  1581.           % We still need to make sure that the tables end on 4-byte 
  1582.           % boundaries.
  1583.           dup 4 mod 0 ne {
  1584.             % First we need to work out how many strings of size maxstring
  1585.             % are present, and how much they contribute to the overall size.
  1586.             dup maxstring idiv maxstring mul sub
  1587.             % Promote final string length to multiple of 4
  1588.             4 idiv 1 add 4 mul string /newstring exch def
  1589.             % Get array of strings
  1590.             tabs ix get
  1591.             % find size of table and get last string
  1592.             dup length 1 sub dup /iy exch def get /oldstring exch def
  1593.             newstring 0 oldstring putinterval
  1594.             0 1 newstring length oldstring length sub 1 sub {
  1595.               newstring exch oldstring length add 0 put
  1596.             } for
  1597.             tabs ix get iy newstring put
  1598.           } {
  1599.             % table size is a multiple of 4, don't need to promote it
  1600.             pop
  1601.           } ifelse
  1602.         } ifelse
  1603.     } for
  1604.  
  1605.     % Now, if glyf table > 64Kb, then it will be an array of strings
  1606.     % We need to make sure the strings are split on glyph boundaries
  1607.     0 1 tabarray length 1 sub {            % int
  1608.       dup tabarray exch get                % int ()
  1609.       dup 12 getu32 maxstring gt {         % int () bool
  1610.         0 4 getinterval dup (glyf) eq{     % int () bool
  1611.           % Need to split the glyf strings on glyph boundaries, hmmm.
  1612.           pop                              % int
  1613.           % We need to know the number of glyphs (from the maxp table) and the
  1614.           % position of each glyph (from the loca table).
  1615.           GetLocaType                      % int
  1616.           GetNumGlyphs                     % int
  1617.           GetSortedLoca                    % int
  1618.           % Get the array of strings from tabs
  1619.           dup tabs exch get                % int
  1620.           SplitGlyf                        % int []
  1621.           tabs 3 1 roll put                % -
  1622.         } {                                % int ()
  1623.           (Warning, table ) print print ( > 64Kb\n) print
  1624.           pop                              % -
  1625.         } ifelse
  1626.       }{                                   % int ()
  1627.         % Table less than 64K, so don't worry
  1628.         pop % directory entry              % int
  1629.         pop % 'for' control variable       % -
  1630.       } ifelse
  1631.     } for
  1632.   end % .opdloadttfontdict
  1633. } bind def
  1634.     
  1635. % Makesfnts uses the accumulated data to create an array of strings
  1636. % containing only the required data.
  1637. %
  1638. % - Makesfnts array
  1639. %    
  1640. /Makesfnts
  1641. {    
  1642.   .opdloadttfontdict begin
  1643.     % Determine size of sfnts array
  1644.     % length of tabarray + header
  1645.     0
  1646.     tabs {                            % int obj
  1647.       dup type /stringtype eq {       % int obj bool
  1648.         pop                           % int
  1649.         1 add                         % int
  1650.       }{                              % int obj
  1651.         {                             % int obj
  1652.           type /stringtype eq {       % int bool
  1653.             1 add                     % int
  1654.           } if
  1655.         } forall
  1656.       } ifelse
  1657.     } forall
  1658.  
  1659.     1 add                            % add header and table directory 
  1660.                                      % to determine total # strings
  1661.     % Need to recalculate the lengths of the TT
  1662.     % tables, just in case any have changed. If required we
  1663.     % could also resort the tables here, ideally we should do so
  1664.     % and recalculate checksums, but this should never be necessary
  1665.     % for fonts produced by pdfwrite.
  1666.     /TTOffset
  1667.     TableDir length                  % initial table offset is header length
  1668.     tabarray length 16 mul add       % + (NumTables * 16) bytes
  1669.     def
  1670.     
  1671.     0
  1672.     tabarray {                     % index ()
  1673.       exch dup 1 add               % () index index+1
  1674.       3 1 roll                     % index+1 () index
  1675.       dup                          % index+1 () index index
  1676.       tabs exch get                % index+1 () index ()/[]
  1677.       dup type /stringtype eq {    % index+1 () index ()/[] bool
  1678.         length                     % index+1 () index int
  1679.         2 index exch               % index+1 () index () int
  1680.         TTOffset 
  1681.         dup 3 1 roll add           % add the running total of offsets
  1682.         /TTOffset exch def         % update running total of offsets
  1683.         8 exch putu32              % index+1 () index
  1684.         exch tabarray 3 1 roll     % index+1 [] index ()
  1685.         put                        % index+1
  1686.       } {                          % index+1 () index ()/[]
  1687.         0 exch                     % add all string lengths
  1688.         {                          % starting from 0
  1689.           dup type /stringtype eq {
  1690.             length add             %
  1691.           } {
  1692.             pop
  1693.           } ifelse
  1694.         } forall                   %
  1695.         2 index exch               % index+1 () index () int
  1696.         TTOffset 
  1697.         dup 3 1 roll add           % add the running total of offsets
  1698.         /TTOffset exch def         % update running total of offsets
  1699.         8 exch putu32              % index+1 () index
  1700.         exch tabarray 3 1 roll     % index+1 [] index ()
  1701.         put                        % index+1
  1702.       } ifelse
  1703.     } forall
  1704.     pop                            % index+1
  1705.     
  1706.     array                          % []
  1707.     dup 0                          % [] [] 0
  1708.     TableDir length            
  1709.     tables length add              % [] [] 0 header_length
  1710.     string                         % [] [] 0 ()
  1711.     dup 0 TableDir putinterval     % [] [] 0 ()
  1712.     dup 12 tables putinterval      % [] [] 0 ()
  1713.     put                            % []
  1714.     dup                            % [] []
  1715.     /ix 1 def
  1716.     tabs {                         % [] [] obj
  1717.       dup type /stringtype eq {    % [] [] obj bool
  1718.         ix exch                    % [] [] int obj
  1719.         put dup                    % [] []
  1720.         /ix ix 1 add def           % [] []
  1721.       }{
  1722.         {
  1723.           dup type /stringtype eq { % [] [] obj bool
  1724.             ix exch put dup        % [] []
  1725.             /ix ix 1 add def       %
  1726.           } {
  1727.             pop                    % [] []
  1728.           } ifelse
  1729.         } forall
  1730.       } ifelse
  1731.     } forall
  1732.     pop                            % []
  1733.     end %.opdloadttfontdict
  1734. } bind def
  1735.  
  1736. /MakeType42 % <FontFile_object> <font_descriptor> MakeType42 <FontFile_object> <font_descriptor> <font>
  1737. {
  1738.   //PDFR_DEBUG {
  1739.     (MakeType42 beg) =
  1740.   } if
  1741.   10 dict begin
  1742.     /FontName 1 index /FontName get def
  1743.     /FontType 42 def
  1744.     /FontMatrix [1 0 0 1 0 0] def
  1745.     /FontBBox 1 index /FontBBox get def          % fo fd
  1746.     dup /FontResource get                        % fo fd fr
  1747.     dup /Encoding known {                        % fo fd fr
  1748.        //PDFReader /ObtainEncoding get exec      % fo fd fr
  1749.        /Encoding get                             % fo fd e
  1750.     } {
  1751.       pop null
  1752.     } ifelse 
  1753.     /PDFEncoding exch def                        % fo fd
  1754.     /CharStrings 2 index //PDFReader /MakeTTCharStrings get exec def
  1755.     /sfnts 2 index //MakeStreamReader exec 
  1756.     ReadTTF
  1757.     ProcessTTData
  1758.     Makesfnts 
  1759.     def
  1760.     /Encoding StandardEncoding def % A stub - will be replaced by font resource.
  1761.     /PaintType 0 def
  1762.   currentdict end
  1763.   //PDFR_DEBUG {
  1764.     (MakeType42 end) =
  1765.   } if
  1766. } bind def
  1767.  
  1768. /GetInstalledFont % <name> GetInstalledFont <font>
  1769. { 
  1770.   dup //InstalledFonts exch knownget {                          % n f
  1771.     exch pop                                                    % f
  1772.   } {                                                           % n
  1773.     dup findfont dup 3 1 roll                                   % f n f
  1774.     //InstalledFonts 3 1 roll put                               % f
  1775.   } ifelse
  1776. } bind def
  1777.  
  1778. /RemoveFontNamePrefix % <name> RemoveFontNamePrefix <name>
  1779. { //=string cvs true
  1780.   0 1 5 {
  1781.     2 index exch get //IsUpper exec not {
  1782.       pop false exit
  1783.     } if
  1784.   } for
  1785.   { (+) search {
  1786.       pop pop
  1787.     } if
  1788.   } if
  1789.   cvn
  1790. } bind def
  1791.  
  1792. /CheckFont % <key> <val> CheckFont <key> <val>
  1793. { dup /Type get /Font ne {
  1794.     mark (Resource ) 3 index ( must have /Type/Font .) //error exec
  1795.   } if
  1796. } bind def
  1797.  
  1798. /CheckEncoding %  <key> <val> CheckEncoding <key> <val>
  1799. { dup type /nametype ne {
  1800.     dup /Type get /Encoding ne {
  1801.       mark (Resource ) 3 index ( must have /Type/Encoding .) //error exec
  1802.     } if
  1803.   } if
  1804. } bind def
  1805.  
  1806. /ObtainEncoding % <font_resource> ObtainEncoding <font_resource>
  1807. { dup /Encoding known {
  1808.     dup dup /Encoding //CheckEncoding //ResolveD exec   % fr fr er|e|n
  1809.     dup type dup /arraytype eq exch /packedarraytype eq or {
  1810.       % Already resolved.
  1811.       pop pop
  1812.     } {
  1813.       dup type /nametype eq {
  1814.         /Encoding findresource                          % fr fr e
  1815.       } {
  1816.         dup /BaseEncoding //knownget exec not {
  1817.           /StandardEncoding
  1818.         } if
  1819.         /Encoding findresource                          % fr fr er e
  1820.         exch                                            % fr fr e er
  1821.         /Differences //knownget exec {                  % fr fr e d
  1822.           exch dup length array copy exch
  1823.           0 exch                                        % fr fr e 0 d
  1824.           {                                             % fr fr e i v
  1825.             dup type /integertype eq {
  1826.               exch pop
  1827.             } {
  1828.               3 copy put pop                            % fr fr e i
  1829.               1 add
  1830.             } ifelse
  1831.           } forall
  1832.           pop                                           % fr fr e
  1833.          } if                                           % fr fr e
  1834.       } ifelse                                          % fr fr e
  1835.       /Encoding exch put                                % fr
  1836.     } ifelse
  1837.   } {
  1838.     dup /Encoding /StandardEncoding /Encoding findresource put
  1839.   } ifelse
  1840. } bind def
  1841.  
  1842. /ObtainMetrics % <font_resource> ObtainMetrics <font_resource>
  1843. { dup /Widths //knownget exec {                         % fr W
  1844.     1 index /Encoding get                               % fr W E
  1845.     256 dict                                            % fr W E M
  1846.     3 index /Subtype get /TrueType eq {
  1847.       1000
  1848.     } {
  1849.       1
  1850.     } ifelse                                            % fr W E M s
  1851.     4 index /MissingWidth //knownget exec not {
  1852.       0
  1853.     } if                                                % fr W E M s mw
  1854.     5 index /FirstChar //knownget exec not {
  1855.       0
  1856.     } if                                                % fr W E M s mw c0
  1857.     6 5 roll                                            % fr E M s mw c0 W
  1858.     dup 0 exch 1 exch length 1 sub {                    % fr E M s mw c0 W i
  1859.       2 copy get                                        % fr E M s mw c0 W i w
  1860.       exch 3 index add                                  % fr E M s mw c0 W w c
  1861.       7 index exch get                                  % fr E M s mw c0 W w n
  1862.       dup null ne {
  1863.         6 index 3 1 roll exch                           % fr E M s mw c0 W M n w
  1864.         6 index div                                     
  1865.         3 copy pop //knownget exec {
  1866.           0 eq
  1867.         } {
  1868.           true
  1869.         } ifelse
  1870.         { put                                           % fr E M s mw c0 W
  1871.         } {
  1872.           pop pop pop
  1873.         } ifelse
  1874.       } {
  1875.         pop pop
  1876.       } ifelse
  1877.     } for
  1878.     pop pop pop pop exch pop                            % fr M
  1879.     1 index exch /Metrics exch put                      % fr
  1880.   } {
  1881.     dup /MissingWidth //knownget exec {                 % fr mw
  1882.       256 dict                                          % fr mw M
  1883.       2 index /Encoding get {                           % fr mw M e
  1884.         dup null ne {
  1885.           3 copy 3 2 roll put                           % fr mw M e
  1886.         } if
  1887.         pop                                             % fr mw M
  1888.       } forall
  1889.       exch pop                                          % fr M
  1890.       1 index exch /Metrics exch put                    % fr
  1891.     } if
  1892.   } ifelse
  1893. } bind def
  1894.  
  1895. /NotDef % - NotDef -
  1896. { % A Type 3 font is on dstack.
  1897.   FontMatrix aload pop pop pop exch pop exch pop        % sx sy
  1898.   1 exch div exch
  1899.   1 exch div exch                                       % wx wy
  1900.   1 index 0 setcharwidth
  1901.   o setlinewidth
  1902.   0 0 moveto
  1903.   2 copy rlineto
  1904.   1 index 0 rlineto
  1905.   neg exch neg exch rlineto                             %
  1906.   closepath stroke
  1907. } bind def
  1908.  
  1909. /BuildChar  % <font> <char_code> BuildChar -
  1910. { //PDFR_DEBUG {
  1911.     (BuildChar ) print dup //=only exec ( ) print
  1912.   } if
  1913.   exch begin
  1914.   Encoding exch get                                     % n
  1915.   //PDFR_DEBUG {
  1916.     dup =
  1917.   } if
  1918.   dup null eq {
  1919.     pop //NotDef exec                                   %
  1920.   } {                                                   % n
  1921.     CharProcs exch //knownget exec {                    % cp_stream
  1922.       //RunDelayedStream exec
  1923.     } {
  1924.       //NotDef exec
  1925.     } ifelse
  1926.   } ifelse                                              %
  1927.   end % font
  1928. } bind def
  1929.  
  1930. /printdict % <dict> printdict -
  1931. { (<<) =
  1932.   { exch = == } forall
  1933.   (>>) =
  1934. } bind def
  1935.  
  1936. /printfont % <dict> printfont -
  1937. {
  1938.   dup {
  1939.     exch dup =
  1940.     dup /Encoding eq {
  1941.       pop =
  1942.     } {
  1943.       dup /FontInfo eq exch /Private eq or {
  1944.         //printdict exec
  1945.       } {
  1946.         ==
  1947.       } ifelse
  1948.     } ifelse
  1949.   } forall
  1950. } bind def
  1951.  
  1952. /ScaleMetrics % <Metrics> <scale> ScaleMetrics <Metrics>
  1953. { 1 index {           % M s n v
  1954.     2 index div       % M s n v'
  1955.     3 index           % M s n v' M
  1956.     3 1 roll put      % M s
  1957.   } forall
  1958.   pop
  1959. } bind def
  1960.  
  1961. /ResolveAndSetFontAux  % <resource_name> <size> ResolveAndSetFont -
  1962. { exch dup                                              % s rn rn
  1963.   //PDFReader /CurrentObject get /Context get /Resources get
  1964.   /Font //DoNothing //ResolveD exec
  1965.   exch //CheckFont //ResolveD exec                      % s rn fr
  1966.   dup /Font //knownget exec {                           % s rn fr f
  1967.     exch pop exch pop
  1968.   } {
  1969.     {
  1970.       dup /Subtype get dup dup /Type1 eq exch /TrueType eq or exch /MMType1 eq or {
  1971.                                                         % s rn fr
  1972.         exch pop                                        % s fr
  1973.         dup /BaseFont get                               % s fr n
  1974.         //RemoveFontNamePrefix exec                     % s fr n
  1975.         //PDFR_DEBUG {
  1976.           (Font ) print dup =
  1977.         } if                                            % s fr n
  1978.         1 index /FontDescriptor known {                 % s fr n
  1979.           //PDFR_DEBUG {
  1980.             (Font from a font descriptor.) =
  1981.           } if
  1982.           1 index                                       % s fr n fr
  1983.           /FontDescriptor //DoNothing //ResolveD exec   % s fr n fd
  1984.           /Font //knownget exec {
  1985.             exch pop                                    % s fr fd
  1986.           } {
  1987.             //PDFR_DEBUG {
  1988.               (Font descriptor has no Font resolved.) =
  1989.             } if
  1990.             //GetInstalledFont exec                     % s fr f
  1991.           } ifelse
  1992.         } {
  1993.           //GetInstalledFont exec                       % s fr f
  1994.         } ifelse
  1995.         exch                                            % s f fr
  1996.         dup /Encoding known not {
  1997.           1 index /Encoding get 1 index exch /Encoding exch put 
  1998.         } if
  1999.         //ObtainEncoding exec
  2000.         //ObtainMetrics exec
  2001.         exch
  2002.         dup length dict copy                            % s fr f
  2003.         dup 2 index /Encoding get                       % s fr f f e
  2004.         /Encoding exch put                              % s fr f
  2005.         1 index /Metrics //knownget exec {              % s fr f M
  2006.           2 index /Subtype get /TrueType ne {
  2007.             1 index /FontMatrix get 0 get
  2008.             dup 0 eq {
  2009.           % FontMatrix[0] == 0, so cannot downscale by it
  2010.           % HACK: downscale by FontMatrix[1], and will get the target value of wx as wy
  2011.           pop
  2012.           1 index /FontMatrix get 1 get
  2013.           dup 0 eq { pop 1 } if % sorry, FontMatrix is singular so cannot enforce the PDF metrics
  2014.             } if
  2015.             0.001 div
  2016.             //ScaleMetrics exec
  2017.           }{
  2018.             % Check if we got a /sfnts key in the dict
  2019.             % If we did then we are probably OK (TT font from GS)
  2020.             1 index /sfnts known not {
  2021.               % otherwise we need to check the FontMatrix
  2022.               1 index /FontMatrix get 0 get
  2023.               dup 0 eq {
  2024.                 % FontMatrix[0] == 0, so cannot downscale by it
  2025.                 % HACK: downscale by FontMatrix[1], and will get the target value of wx as wy
  2026.                 pop
  2027.                 1 index /FontMatrix get 1 get
  2028.                 dup 0 eq { pop 1 } if % sorry, FontMatrix is singular so cannot enforce the PDF metrics
  2029.               } if
  2030.               //ScaleMetrics exec
  2031.             } if
  2032.           } ifelse
  2033.           1 index exch /Metrics exch put                % s fr f
  2034.         } if
  2035.         1 index /BaseFont get                           % s fr f n
  2036.         exch
  2037.         dup /FID undef
  2038.         dup /UniqueID undef
  2039.         definefont                                      % s fr f
  2040.         dup 3 1 roll                                    % s f fr f
  2041.         /Font exch put                                  % s f
  2042.         exit
  2043.       } if
  2044.       dup /Subtype get /Type3 eq {                      % s rn fr
  2045.         //ObtainEncoding exec
  2046.         2 copy exch /FontName exch put
  2047.         dup /CharProcs get //ResolveDict exec
  2048.         dup /FontType 3 put
  2049.         dup /BuildChar //BuildChar put
  2050.         dup dup /Font exch put
  2051.         % Ignore Metrics because pdfwrite duplicates it 
  2052.         % from setcharwidth/setcachedevice.
  2053.         dup 3 1 roll                                    % s fr rn fr
  2054.         definefont                                      % s fr f
  2055.         2 copy ne { 
  2056.           % The interpreter copied the font dictionary while 'definefont'
  2057.           % Need to update the font pointer in the resource.
  2058.           2 copy /Font exch put                         % s fr f
  2059.         } if
  2060.         exch pop                                        % s f
  2061.         exit
  2062.       } if
  2063.       dup /Subtype get /Type0 eq {                      % s rn fr
  2064.       } if
  2065.       dup /Subtype get /CIDFontType0 eq {               % s rn fr
  2066.       } if
  2067.       dup /Subtype get /CIDFontType2 eq {               % s rn fr
  2068.       } if
  2069.       mark (Unknown font type ) 2 index /Subtype get //error exec
  2070.     } loop
  2071.   } ifelse                                              % s f
  2072.   exch scalefont setfont                                %
  2073. } bind def
  2074.  
  2075. /ResolveAndSetFont  % <resource_name> <size> ResolveAndSetFont -
  2076. { 
  2077.   //ResolveAndSetFontAux exec
  2078. } bind def
  2079.  
  2080. %%beg TrueType
  2081. % ================= Auxiliary procedures for True Type cmap Decoder =============
  2082.  
  2083. /.knownget 
  2084. { 2 copy known {
  2085.     get true
  2086.   } {
  2087.     pop pop false
  2088.   } ifelse
  2089. } bind def
  2090.  
  2091. /.min 
  2092. { 2 copy lt {
  2093.     exch
  2094.   } if
  2095.   pop
  2096. } bind def
  2097.  
  2098. /.max 
  2099. { 2 copy gt {
  2100.     exch
  2101.   } if
  2102.   pop
  2103. } bind def
  2104.  
  2105. /.dicttomark
  2106. { >>
  2107. } bind def
  2108.  
  2109. % ===================== True Type cmap Decoder =============
  2110. % The following procedures are copied from gs/lib/gs_ttf.ps with no change.
  2111.  
  2112. % <string> <index> getu16 <integer>
  2113. /getu16 {
  2114.   2 copy get 8 bitshift 3 1 roll 1 add get add
  2115. } bind def
  2116.  
  2117. % <string> <index> gets16 <integer>
  2118. /gets16 {
  2119.   getu16 16#8000 xor 16#8000 sub
  2120. } bind def
  2121.  
  2122. % <string> <index> getu32 <integer>
  2123. /getu32 {
  2124.   2 copy getu16 16 bitshift 3 1 roll 2 add getu16 add
  2125. } bind def
  2126.  
  2127. % <string> <index> gets32 <integer>
  2128. /gets32 {
  2129.   2 copy gets16 16 bitshift 3 1 roll 2 add getu16 add
  2130. } bind def
  2131.  
  2132. % Each procedure in this dictionary is called as follows:
  2133. %       <encodingtable> proc <glypharray>
  2134. /cmapformats mark
  2135.   0 {           % Apple standard 1-to-1 mapping.
  2136.     6 256 getinterval { } forall 256 packedarray
  2137.   } bind
  2138.   2 {           % Apple 16bit CJK (ShiftJIS etc)
  2139.  
  2140.     % /sHK_sz           subHeaderKey_size       % 1 * uint16
  2141.     % /sH_sz            subHeader_size          % 4 * uint16
  2142.     % /sH_len           subHeader_length
  2143.     % /cmapf2_tblen     total table length
  2144.     % /cmapf2_lang      language code (not used)
  2145.     % /sHKs             subHeaderKeys
  2146.  
  2147.     /sHK_sz 2 def
  2148.     /sH_sz 8 def
  2149.     dup 2 getu16 /cmapf2_tblen exch def
  2150.  
  2151.     dup 4 getu16 /cmapf2_lang exch def
  2152.  
  2153.     dup 6 256 sHK_sz mul getinterval /sHKs exch def
  2154.  
  2155.     0           % initialization value for /sH_len
  2156.     0 1 255 {
  2157.        sHKs exch
  2158.        2 mul getu16
  2159.        1 index  % get current max
  2160.        1 index  % get current subHeaderKey
  2161.        lt {exch} if pop
  2162.     } for
  2163.     /sH_len exch def
  2164.  
  2165.     dup 6 256 sHK_sz mul add
  2166.     cmapf2_tblen 1 index sub getinterval
  2167.     /sH_gIA exch def
  2168.  
  2169.     /cmapf2_glyph_array 65535 array def
  2170.  
  2171.     /.cmapf2_putGID {
  2172.         /cmapf2_ch cmapf2_ch_hi 8 bitshift cmapf2_ch_lo add def
  2173.         firstCode cmapf2_ch_lo le
  2174.         cmapf2_ch_lo firstCode entryCount add lt
  2175.         and { % true: j is inside
  2176.             sH_offset idRangeOffset add         % offset to gI
  2177.             cmapf2_ch_lo firstCode sub 2 mul    % rel. pos. in range
  2178.             add 6 add                           % offset in sH_gIA
  2179.             sH_gIA exch getu16
  2180.             dup 0 gt { %
  2181.                 idDelta add
  2182.                 cmapf2_glyph_array exch cmapf2_ch exch put
  2183.             } {
  2184.                 pop
  2185.                 % cmapf2_glyph_array cmapf2_ch 0 put
  2186.             } ifelse
  2187.         } {   % false: j is outside
  2188.             % cmapf2_glyph_array cmapf2_ch 0 put
  2189.         } ifelse
  2190.     } def
  2191.  
  2192.     16#00 1 16#ff { % hi_byte scan
  2193.         /cmapf2_ch_hi exch def
  2194.         sHKs cmapf2_ch_hi sHK_sz mul getu16
  2195.         /sH_offset exch def
  2196.         sH_gIA sH_offset sH_sz getinterval
  2197.             dup 0 getu16 /firstCode exch def
  2198.             dup 2 getu16 /entryCount exch def
  2199.             dup 4 gets16 /idDelta exch def
  2200.             dup 6 getu16 /idRangeOffset exch def
  2201.         pop
  2202.         sH_offset 0 eq {
  2203.            /cmapf2_ch_lo cmapf2_ch_hi def
  2204.            /cmapf2_ch_hi 0 def
  2205.            .cmapf2_putGID
  2206.         } {
  2207.            16#00 1 16#ff { % lo_byte scan
  2208.                /cmapf2_ch_lo exch def
  2209.                .cmapf2_putGID
  2210.            } for
  2211.         } ifelse
  2212.      } for
  2213.      pop
  2214.      0 1 cmapf2_glyph_array length 1 sub { % rewrite null -> 0.
  2215.         dup cmapf2_glyph_array exch get
  2216.         null eq { cmapf2_glyph_array exch 0 put } {pop} ifelse
  2217.      } for
  2218.      cmapf2_glyph_array
  2219.   } bind
  2220.   4 {           % Microsoft/Adobe segmented mapping.
  2221.     /etab exch def
  2222.     /nseg2 etab 6 getu16 def
  2223.     14 /endc etab 2 index nseg2 getinterval def
  2224.                 % The Apple TrueType documentation omits the 2-byte
  2225.                 % 'reserved pad' that follows the endCount vector!
  2226.     2 add
  2227.     nseg2 add /startc etab 2 index nseg2 getinterval def
  2228.     nseg2 add /iddelta etab 2 index nseg2 getinterval def
  2229.     nseg2 add /idroff etab 2 index nseg2 getinterval def
  2230.                 % The following hack allows us to properly handle
  2231.                 % idiosyncratic fonts that start at 0xf000:
  2232.     pop
  2233.     /firstcode startc 0 getu16 16#ff00 and dup 16#f000 ne { pop 0 } if def
  2234.     /putglyph {
  2235.       glyphs code 3 -1 roll put /code code 1 add def
  2236.     } bind def
  2237.                 % Do a first pass to compute the size of the glyphs array.
  2238.     /numcodes 0 def /glyphs 0 0 2 nseg2 3 sub {
  2239.                 % Stack: /glyphs numglyphs i2
  2240.       /i2 exch def
  2241.       /scode startc i2 getu16 def
  2242.       /ecode endc i2 getu16 def
  2243.       numcodes scode firstcode sub
  2244.                 % Hack for fonts that have only 0x0000 and 0xf000 ranges
  2245.       %dup 16#e000 ge { 255 and } if
  2246.       % the previous line is obstructive to CJK fonts, so it was removed
  2247.       exch sub 0 .max ecode scode sub 1 add add
  2248.       exch 1 index add exch
  2249.       numcodes add /numcodes exch def
  2250.     } for array def
  2251.     % prefill the array with 0's faster than a { 0 putglyph } repeat
  2252.     glyphs length 1024 ge {
  2253.       .array1024z 0 1024 glyphs length 1023 sub { glyphs exch 2 index putinterval } for
  2254.       glyphs dup length 1024 sub 3 -1 roll
  2255.       putinterval
  2256.     } {
  2257.       0 1 glyphs length 1 sub { glyphs exch 0 put } for
  2258.     } ifelse
  2259.                 % Now fill in the array.
  2260.     /numcodes 0 def /code 0 def
  2261.     0 2 nseg2 3 sub {
  2262.       /i2 exch def
  2263.       /scode startc i2 getu16 def
  2264.       /ecode endc i2 getu16 def
  2265.       numcodes scode firstcode sub
  2266.                 % Hack for fonts that have only 0x0000 and 0xf000 ranges
  2267.       %dup 16#e000 ge { 255 and } if
  2268.       % the previous line is obstructive to CJK fonts, so it was removed
  2269.       exch sub 0 .max dup /code exch code exch add def
  2270.       ecode scode sub 1 add add numcodes add /numcodes exch def
  2271.       /delta iddelta i2 gets16 def
  2272.       TTFDEBUG {
  2273.         (scode=) print scode =only
  2274.         ( ecode=) print ecode =only
  2275.         ( delta=) print delta =only
  2276.         ( droff=) print idroff i2 getu16 =
  2277.       } if
  2278.       idroff i2 getu16 dup 0 eq {
  2279.         pop scode delta add 65535 and 1 ecode delta add 65535 and
  2280.         { putglyph } for
  2281.       } {       % The +2 is for the 'reserved pad'.
  2282.         /gloff exch 14 nseg2 3 mul add 2 add i2 add add def
  2283.         0 1 ecode scode sub {
  2284.           2 mul gloff add etab exch getu16
  2285.           dup 0 ne { delta add 65535 and } if putglyph
  2286.         } for
  2287.       } ifelse
  2288.     } for glyphs /glyphs null def       % for GC
  2289.   } bind
  2290.   6 {           % Single interval lookup.
  2291.     dup 6 getu16 /firstcode exch def dup 8 getu16 /ng exch def
  2292.     firstcode ng add array
  2293.                 % Stack: tab array
  2294.                 % Fill elements 0 .. firstcode-1 with 0
  2295.     0 1 firstcode 1 sub { 2 copy 0 put pop } for
  2296.     dup firstcode ng getinterval
  2297.                 % Stack: tab array subarray
  2298.                 % Fill elements firstcode .. firstcode+nvalue-1 with glyph values
  2299.     0 1 ng 1 sub {
  2300.       dup 2 mul 10 add 4 index exch getu16 3 copy put pop pop
  2301.     } for pop exch pop
  2302.   } bind
  2303. .dicttomark readonly def                % cmapformats
  2304.  
  2305. % <cmaptab> cmaparray <glypharray>
  2306. /cmaparray {
  2307.   dup 0 getu16 cmapformats exch .knownget {
  2308.     TTFDEBUG {
  2309.       (cmap: format ) print 1 index 0 getu16 = flush
  2310.     } if exec
  2311.   } {
  2312.     (Can't handle format ) print 0 getu16 = flush
  2313.     0 1 255 { } for 256 packedarray
  2314.   } ifelse
  2315.   TTFDEBUG {
  2316.     (cmap: length=) print dup length = dup ==
  2317.   } if
  2318. } bind def
  2319.  
  2320. % Define remapping for misnamed glyphs in TrueType 'post' tables.
  2321. % There are probably a lot more than this!
  2322. /postremap mark
  2323.   /Cdot /Cdotaccent
  2324.   /Edot /Edotaccent
  2325.   /Eoverdot /Edotaccent
  2326.   /Gdot /Gdotaccent
  2327.   /Ldot /Ldotaccent
  2328.   /Zdot /Zdotaccent
  2329.   /cdot /cdotaccent 
  2330.   /edot /edotaccent 
  2331.   /eoverdot /edotaccent
  2332.   /gdot /gdotaccent 
  2333.   /ldot /ldotaccent
  2334.   /zdot /zdotaccent 
  2335. .dicttomark readonly def
  2336.  
  2337. /get_from_stringarray % <array|string> <offset> get_from_stringarray <int>
  2338. { 1 index type /stringtype eq {
  2339.     get
  2340.   } {
  2341.     exch {                % o ()
  2342.       2 copy length ge {
  2343.         length sub
  2344.       } {
  2345.         exch get exit
  2346.       } ifelse
  2347.     } forall
  2348.   } ifelse
  2349. } bind def
  2350.  
  2351. /getinterval_from_stringarray % <array|string> <offset> <length> getinterval_from_stringarray <string>
  2352. { % May allocate a string in VM.
  2353.   2 index type /stringtype eq {
  2354.     getinterval
  2355.   } {
  2356.     string exch 0                                 % [] s o p
  2357.     4 3 roll {                                    % s o p Si
  2358.       dup length                                  % s o p Si lSi
  2359.       dup 4 index lt {
  2360.         3 index exch sub                          % s o p Si o'
  2361.         exch pop 3 1 roll exch pop                % s o' p
  2362.       } {                                         % s o p Si lSi
  2363.         dup 3 1 roll                              % s o p lSi Si lSi
  2364.         4 index sub                               % s o p lSi Si lSi-o
  2365.         5 index length 4 index sub                % s o p lSi Si lSi-o ls-p
  2366.         2 copy gt { exch } if pop                 % s o p lSi Si minl
  2367.         dup 3 1 roll                              % s o p lSi minl Si minl
  2368.         5 index exch getinterval                  % s o p lSi minl from
  2369.         5 index 4 index 3 index                   % s o p lSi minl from s p minl
  2370.         getinterval                               % s o p lSi minl from to
  2371.         copy pop                                  % s o p lSi minl
  2372.         exch pop add exch pop 0 exch              % s 0 p'
  2373.         dup 3 index length ge { exit } if
  2374.       } ifelse
  2375.     } forall
  2376.     pop pop                                       % s
  2377.   } ifelse
  2378. } bind def
  2379.  
  2380. /string_array_size  % <array|string> string_array_size <int>
  2381.     { dup type /stringtype eq {
  2382.     length
  2383.   } { 
  2384.     0 exch { length add } forall
  2385.   } ifelse
  2386. } bind def
  2387.  
  2388. % Each procedure in this dictionary is called as follows:
  2389. %       posttable <<proc>> glyphencoding
  2390. /postformats mark
  2391.   16#00010000  {        % 258 standard Macintosh glyphs.
  2392.     pop MacGlyphEncoding
  2393.   }
  2394.   16#00020000  {        % Detailed map, required by Microsoft fonts.
  2395.     dup dup type /arraytype  eq { 0 get } if length 36 lt {
  2396.       TTFDEBUG { (post format 2.0 invalid.) = flush } if
  2397.       pop [ ]
  2398.     } {
  2399.       /postglyphs exch def
  2400.       /post_first postglyphs dup type /arraytype eq { 0 get } if def
  2401.       post_first 32 getu16 /numglyphs exch def
  2402.       /glyphnames numglyphs 2 mul 34 add def
  2403.       % Build names array in the order they occur in the 'post' table
  2404.       /postpos glyphnames def
  2405.       /total_length postglyphs //string_array_size exec def
  2406.       numglyphs array 0 1 numglyphs 1 sub {
  2407.     postpos total_length ge {
  2408.           % Fill the rest with .notdef
  2409.           1 numglyphs 1 sub { 1 index exch /.notdef put } for
  2410.           exit
  2411.         } if
  2412.     % No name available, /postnames will be defined as an empty
  2413.     % array and the glyph won't get a name attached.
  2414.     postglyphs postpos //get_from_stringarray exec
  2415.         postglyphs postpos 1 add 2 index //getinterval_from_stringarray exec cvn
  2416.     exch postpos add 1 add /postpos exch def
  2417.         2 index 3 1 roll
  2418.         put
  2419.       } for
  2420.       /postnames exch def
  2421.       numglyphs array 0 1 numglyphs 1 sub {
  2422.     dup 2 mul 34 add postglyphs exch 2 //getinterval_from_stringarray exec 
  2423.     dup 0 get 8 bitshift exch 1 get add dup 258 lt {
  2424.       MacGlyphEncoding exch get
  2425.     } {
  2426.       dup 32768 ge {
  2427.         % According to the published TrueType spec, such values are
  2428.         % "reserved for future use", but at least some PDF files
  2429.         % produced by the Adobe PDF library contain entries with a
  2430.         % value of 16#ffff.
  2431.         pop /.notdef
  2432.       } {
  2433.         % Get the name for this glyph
  2434.         258 sub dup postnames length ge {
  2435.           TTFDEBUG { (   *** warning: glyph index past end of 'post' table) = flush } if
  2436.           pop
  2437.           exit
  2438.         } if
  2439.         postnames exch get
  2440.         % At least some of Microsoft's TrueType fonts use incorrect
  2441.         % (Adobe-incompatible) names for some glyphs.
  2442.         % Correct for this here.
  2443.         postremap 1 index .knownget { exch pop } if
  2444.       } ifelse
  2445.     } ifelse
  2446.     2 index 3 1 roll put
  2447.       } for
  2448.  
  2449.     }
  2450.     ifelse
  2451.   } bind
  2452.   16#00030000  {        % No map.
  2453.     pop [ ]
  2454.   } bind
  2455. .dicttomark readonly def                % postformats
  2456.  
  2457. /first_post_string % - first_post_string <string>
  2458. {
  2459.   post dup type /arraytype eq { 0 get } if
  2460. } bind def
  2461.  
  2462. % - .getpost -
  2463. % Uses post, defines glyphencoding
  2464. /.getpost {
  2465.   /glyphencoding post null eq {
  2466.     TTFDEBUG { (post missing) = flush } if [ ]
  2467.   } {
  2468.     postformats first_post_string 0 getu32 .knownget {
  2469.       TTFDEBUG {
  2470.         (post: format ) print
  2471.         first_post_string
  2472.         dup 0 getu16 =only (,) print 2 getu16 = flush
  2473.       } if
  2474.       post exch exec
  2475.     } {
  2476.       TTFDEBUG { (post: unknown format ) print post 0 getu32 = flush } if [ ]
  2477.     } ifelse
  2478.   } ifelse def
  2479. } bind def
  2480.  
  2481. % ===================== True Type Interpretation =============
  2482.  
  2483. /TTParser <<
  2484.   /Pos 0
  2485.   /post null
  2486. >> def
  2487.  
  2488. /readu8   % <file> readu8 <int>
  2489. { read not {
  2490.     mark (Insufficient data in the stream.) //error exec
  2491.   } if
  2492. } bind def
  2493.  
  2494. /readu16   % <file> readu16 <int>
  2495. { dup //readu8 exec 8 bitshift exch //readu8 exec or
  2496. } bind def
  2497.  
  2498. /reads16   % <file> reads16 <int>
  2499. { //readu16 exec 16#8000 xor 16#8000 sub
  2500. } bind def
  2501.  
  2502. /readu32   % <file> readu32 <int>
  2503. { dup //readu16 exec 16 bitshift exch //readu16 exec or
  2504. } bind def
  2505.  
  2506. /reads32   % <file> reads32 <int>
  2507. { dup //reads16 exec 16 bitshift exch //readu16 exec or
  2508. } bind def
  2509.  
  2510. /SkipToPosition % <file> <int> SkipToPosition -
  2511. { dup //TTParser /Pos get                               % f P P p
  2512.   exch //TTParser exch /Pos exch put                    % f P p
  2513.   sub                                                   % f P-p
  2514.   //PDFR_DEBUG {
  2515.     (Skipping ) print dup //=only exec ( bytes.) =
  2516.   } if
  2517.   dup 0 eq {
  2518.     pop pop
  2519.   } {
  2520.     dup 3 1 roll                                        % P-p f P-p
  2521.     () /SubFileDecode filter                            % P-p f'
  2522.     exch                                                % f' P-p
  2523.     { 1 index //BlockBuffer readstring pop length
  2524.       dup 0 eq { pop exch pop exit } if
  2525.       sub
  2526.     } loop
  2527.     0 ne {
  2528.       mark (Insufficient data in the stream for SkipToPosition.) //error exec
  2529.     } if
  2530.   } ifelse
  2531. } bind def
  2532.  
  2533. /TagBuffer 4 string def
  2534.  
  2535. /ParseTTTableDirectory  % <file> ParseTTTableDirectory <dict>
  2536. { //PDFR_DEBUG {
  2537.     (ParseTTTableDirectory beg) =
  2538.   } if
  2539.   15 dict begin
  2540.     dup //readu32 exec 16#00010000 ne {
  2541.       mark (Unknown True Type version.) //error exec
  2542.     } if
  2543.     dup //readu16 exec /NumTables exch def
  2544.     dup //readu16 exec /SearchRange exch def
  2545.     dup //readu16 exec /EntrySelector exch def
  2546.     dup //readu16 exec /RangeShift exch def
  2547.     //PDFR_DEBUG {
  2548.       (NumTables = ) print NumTables =
  2549.     } if
  2550.     NumTables {
  2551.       dup //TagBuffer readstring not {
  2552.         mark (Could not read TT tag.) //error exec
  2553.       } if
  2554.       cvn
  2555.       [ 2 index //readu32 exec pop % CheckSum
  2556.         2 index //readu32 exec  % Offset
  2557.         3 index //readu32 exec  % Length
  2558.       ]
  2559.       //PDFR_DEBUG {
  2560.         2 copy exch //=only exec ( ) print ==
  2561.       } if
  2562.       def
  2563.     } repeat
  2564.     pop  % file
  2565.     //TTParser /Pos 12 NumTables 16 mul add put
  2566.   currentdict end
  2567.   //PDFR_DEBUG {
  2568.     (ParseTTTableDirectory end) =
  2569.   } if
  2570. } bind def
  2571.  
  2572. /ParseTTcmap  % <file> <TableDirectory> ParseTTcmap <dict>
  2573. { //PDFR_DEBUG {
  2574.     (ParseTTcmap beg) =
  2575.   } if
  2576.   /cmap get aload pop                                   % f o L
  2577.   3 1 roll                                              % L f o
  2578.   7 dict begin
  2579.     //PDFR_DEBUG {
  2580.       (Current position = ) print //TTParser /Pos get =
  2581.       (cmap position = ) print dup =
  2582.     } if
  2583.     1 index exch //SkipToPosition exec                  % L f
  2584.     //TTParser /Pos get /TablePos exch def
  2585.     dup //readu16 exec pop % version
  2586.     dup //readu16 exec /NumEncodings exch def
  2587.     //PDFR_DEBUG {
  2588.       (NumEncodings = ) print NumEncodings =
  2589.     } if
  2590.     null                                                % L f null
  2591.     NumEncodings {
  2592.       1 index //readu32 exec % platformID, specificID   % L f null id
  2593.       2 index //readu32 exec % offset                   % L f null id o
  2594.       3 array dup 3 2 roll 0 exch put                   % L f []|null id []
  2595.       2 index null ne {
  2596.         dup 0 get 3 index 0 get sub                     % L f []|null id [] l
  2597.         3 index exch 1 exch put                         % L f []|null id []
  2598.       } if
  2599.       dup 4 3 roll pop 3 1 roll                         % L f [] id []
  2600.       def
  2601.     } repeat                                            % L f []
  2602.     dup 0 get                                           % L f [] o
  2603.     4 3 roll exch sub                                   % f [] L-o
  2604.     1 exch put                                          % f
  2605.     //PDFR_DEBUG {
  2606.       currentdict {
  2607.         exch dup type /integertype eq {
  2608.           //PrintHex exec ( ) print ==
  2609.         } {
  2610.           pop pop
  2611.         } ifelse
  2612.       } forall
  2613.     } if
  2614.     4 NumEncodings 8 mul add /HeaderLength exch def
  2615.     //TTParser /Pos //TTParser /Pos get HeaderLength add put
  2616.     0                                                  % f o
  2617.     NumEncodings {
  2618.       16#7FFFFFF null                                  % f o om null|[]
  2619.       % Choosing a table with minimal offset greater than 'o' :
  2620.       currentdict {                                    
  2621.         1 index type /integertype eq {                 % f o om null|[] id []
  2622.           exch pop dup 0 get                           % f o om null|[] [] oi
  2623.           dup 5 index gt {
  2624.             dup 4 index lt {
  2625.               4 1 roll                                 % f o oi om null|[] []
  2626.               exch pop exch pop                        % f o oi []
  2627.             } {
  2628.               pop pop            
  2629.             } ifelse
  2630.           } {
  2631.             pop pop
  2632.           } ifelse                                     % f o oi []
  2633.         } {
  2634.           pop pop
  2635.         } ifelse
  2636.       } forall                                         % f o om' []
  2637.       //PDFR_DEBUG {
  2638.         (Obtaining subtable for ) print dup ==
  2639.       } if
  2640.       3 2 roll pop                                     % f o' []
  2641.       3 copy pop                                       % f o' [] f o'
  2642.       TablePos add //SkipToPosition exec               % f o' []
  2643.       3 copy exch pop 1 get                            % f o' [] l
  2644.       //TTParser /Pos //TTParser /Pos get 3 index add put
  2645.       string                                           % f o' [] f ()
  2646.       readstring not {
  2647.         mark (Can't read a cmap subtable.) //error exec
  2648.       } if                                             % f o' [] ()
  2649.       2 exch put                                       % f o'
  2650.     } repeat
  2651.     pop pop                                            %
  2652.   currentdict end                                      
  2653.   //PDFR_DEBUG {
  2654.     (ParseTTcmap end) =
  2655.   } if
  2656. } bind def
  2657.  
  2658. /GetTTEncoding   % <file> <TTcmapHeader> <platformIDspecificID> GetTTEncoding <array>
  2659. { //PDFR_DEBUG {
  2660.     (GetTTEncoding beg) =
  2661.   } if
  2662.   get                                      % f []
  2663.   exch pop                                 % []
  2664.   2 get
  2665.   10 dict begin % For local variables.
  2666.     /TTFDEBUG //PDFR_DEBUG def
  2667.     //cmaparray exec
  2668.   end
  2669.   //PDFR_DEBUG {
  2670.     (GetTTEncoding end) =
  2671.     dup ==
  2672.   } if
  2673. } bind def
  2674.  
  2675. /InverseEncoding % <encoding> InverseEncoding <dict>
  2676. {
  2677.   256 dict begin
  2678.     dup length 1 sub -1 0 {                       % E i
  2679.       2 copy get                                  % E i n
  2680.       exch                                        % E n i
  2681.       1 index currentdict exch //knownget exec {  % E n i e
  2682.         dup type /arraytype eq {
  2683.           aload length 1 add array astore         % E n e'
  2684.         } {
  2685.           2 array astore                          % E n e'
  2686.         } ifelse
  2687.       } if
  2688.       def
  2689.     } for
  2690.     pop
  2691.    currentdict end
  2692. } bind def
  2693.  
  2694. /GetMacRomanEncodingInverse
  2695. { //PDFReader /MacRomanEncodingInverse get 
  2696.   dup null eq {
  2697.     pop
  2698.     MacRomanEncoding //InverseEncoding exec
  2699.     dup //PDFReader exch /MacRomanEncodingInverse exch put
  2700.   } if
  2701. } bind def
  2702.  
  2703. /PutCharStringSingle    % <cmap_array> <glyph_name> <char_code> PutCharStringSingle  <cmap_array>
  2704. {
  2705.   dup 3 index length lt {                               % cmap name code
  2706.     2 index exch get                                    % cmap name glyphindex
  2707.     dup 0 ne {
  2708.       def                                               % cmap
  2709.     } {
  2710.       pop pop
  2711.     } ifelse
  2712.   } {
  2713.     pop pop                                             % cmap
  2714.   } ifelse
  2715. } bind def
  2716.  
  2717. /PutCharString  % <cmap_array> <glyph_name> <char_code> PutCharString  <cmap_array>
  2718. { 1 index type /nametype ne {
  2719.     mark (Bad charstring name) //error exec
  2720.   } if
  2721.   dup type /arraytype eq {
  2722.     {                                                   % cmap name code
  2723.       3 copy //PutCharStringSingle exec                 % cmap name code cmap
  2724.       pop pop                                           % cmap name
  2725.     } forall
  2726.     pop                                                 % cmap
  2727.   } {
  2728.     //PutCharStringSingle exec
  2729.   } ifelse
  2730. } bind def
  2731.  
  2732. /ComposeCharStrings % <cmaparray> <dict> ComposeCharStrings <dict>
  2733. { 
  2734.   //PDFR_DEBUG {
  2735.     (ComposeCharStrings beg) =
  2736.   } if
  2737.   1 index length 1 add dict begin                       % cmap d
  2738.   % fixme : the dict length estimation doesn't account 'post'.
  2739.   /.notdef 0 def
  2740.   exch                                                  % d cmap
  2741.   //TTParser /post get                                  % d cmap [post]|null
  2742.   dup null ne {
  2743.     exch                                                % d [] cmap
  2744.     1 index length 1 sub -1 0 {                         % d [] cmap code
  2745.       dup 3 index exch get exch                         % d [] cmap name code
  2746.       dup 0 eq {
  2747.         pop pop
  2748.       } {
  2749.         def
  2750.       } ifelse
  2751.     } for
  2752.   } if
  2753.   exch pop exch                                         % cmap d
  2754.   {                                                     % cmap name code
  2755.     //PutCharString exec
  2756.   } forall                                              % cmap
  2757.   pop                                                   %
  2758.   currentdict end
  2759.   //PDFR_DEBUG {
  2760.     (ComposeCharStrings end) =
  2761.   } if
  2762. } bind def
  2763.  
  2764. /ParseTTpost   % <file> <TableDirectory> ParseTTpost -
  2765. { % Defines TTparser.post - an array, 
  2766.   % which maps glyph indices to glyph names.
  2767.   //PDFR_DEBUG {
  2768.     (ParseTTpost beg) =
  2769.   } if
  2770.   /post get aload pop                                   % f o L
  2771.   3 1 roll                                              % L f o
  2772.   //PDFR_DEBUG {
  2773.     (Current position = ) print //TTParser /Pos get =
  2774.     (post position = ) print dup =
  2775.   } if
  2776.   1 index exch //SkipToPosition exec                    % L f
  2777.   //TTParser /Pos //TTParser /Pos get 4 index add put
  2778.   exch dup 65535 le {
  2779.     string                                              % f s
  2780.     readstring not {
  2781.       mark (Insufficient data in the stream for ParseTTpost.) //error exec
  2782.     } if                                                % s
  2783.   } {
  2784.                                     % f s
  2785.       [ 3 1 roll                    % [ f s
  2786.       dup 16384 div floor cvi       % [ f s numblocks
  2787.       exch 1 index 16384 mul        % [ f numblocks s bytesinblocks
  2788.       sub exch                      % [ f remainder numblocks
  2789.       1 sub 0 1 3 -1 roll           % [ f remainder 0 1 numblocks
  2790.       {
  2791.         1 add index                 % [ f remainder () ()... f
  2792.         16384 string readstring not {
  2793.           mark (Insufficient data in the stream for ParseTTpost.) //error exec
  2794.         } if
  2795.       } for      
  2796.                                     % [ f remainder () ()...
  2797.       counttomark -2 roll           % [ () ()... f remainder
  2798.       string readstring not{
  2799.         mark (Insufficient data in the stream for ParseTTpost.) //error exec
  2800.       } if
  2801.       ]
  2802.   } ifelse
  2803.   1 dict begin % A bridge to the code from /gs/lib/gs_ttf.ps .
  2804.     /post exch def
  2805.     //.getpost exec
  2806.     //TTParser /post glyphencoding put
  2807.     //PDFR_DEBUG {
  2808.       (ParseTTpost end) =
  2809.       glyphencoding ==
  2810.     } if
  2811.   end
  2812. } bind def
  2813.  
  2814. /MakeTTCharStrings % <FontFile_object> MakeTTCharStrings <CharStrings>
  2815. { //MakeStreamReader exec                               % f
  2816.   dup dup //ParseTTTableDirectory exec                  % f f d
  2817.   % Since the file isn't positionable,
  2818.   % we must pick up either 'post' or 'cmap' first.
  2819.   % Deside which one we do first :
  2820.   //TTParser /post null put
  2821.   dup /post //knownget exec {
  2822.     0 get
  2823.     1 index /cmap get 0 get
  2824.     lt {
  2825.       2 copy //ParseTTpost exec                         % f f d
  2826.       //ParseTTcmap exec                                % f ch
  2827.     } {
  2828.       2 copy //ParseTTcmap exec                         % f f d ch
  2829.       3 1 roll                                          % f ch f d
  2830.       //ParseTTpost exec                                % f ch
  2831.     } ifelse
  2832.   } {
  2833.     //ParseTTcmap exec                                  % f ch
  2834.   } ifelse
  2835.   {
  2836.     dup 16#00030001 known {
  2837.       //PDFR_DEBUG {
  2838.         (Using the TT cmap encoding for Windows Unicode.) =
  2839.       } if
  2840.       16#00030001 //GetTTEncoding exec
  2841.       AdobeGlyphList //ComposeCharStrings exec
  2842.       exit
  2843.     } if
  2844.     dup 16#00010000 known {
  2845.       //PDFR_DEBUG {
  2846.         (Using the TT cmap encoding for Macintosh Roman.) =
  2847.       } if
  2848.       16#00010000 //GetTTEncoding exec 
  2849.       PDFEncoding dup null eq {
  2850.         pop //GetMacRomanEncodingInverse exec
  2851.       } {
  2852.         //InverseEncoding exec
  2853.       } ifelse
  2854.       //ComposeCharStrings exec
  2855.       exit
  2856.     } if
  2857.     dup 16#00030000 known {
  2858.       //PDFR_DEBUG {
  2859.         (Using the TT cmap encoding 3.0 - not sure why Ghostscript writes it since old versions.) =
  2860.       } if
  2861.       % Same algorithm as for 16#00010000.
  2862.       16#00030000 //GetTTEncoding exec
  2863.       PDFEncoding dup null eq {
  2864.         pop //GetMacRomanEncodingInverse exec
  2865.       } {
  2866.         //InverseEncoding exec
  2867.       } ifelse
  2868.       //ComposeCharStrings exec
  2869.       exit
  2870.     } if
  2871.     mark (True Type cmap has no useful encodings.) //error exec
  2872.   } loop
  2873.   //PDFR_DEBUG {
  2874.     (CharStrings <<) =
  2875.     dup {
  2876.       exch
  2877.       dup type /nametype eq { 
  2878.         //=only exec 
  2879.       } {
  2880.         ==
  2881.       } ifelse
  2882.       ( ) print ==
  2883.     } forall
  2884.     (>>) =
  2885.   } if
  2886. } bind def
  2887.  
  2888. %%end TrueType
  2889.  
  2890. % ===================== Functions ============================
  2891.  
  2892. /ScaleVal % <value> <Range> ScaleVal <scaled_value>
  2893. {
  2894.   aload pop                                             % v r0 r1
  2895.   1 index sub                                           % v r0 r1-r0
  2896.   3 2 roll mul add
  2897. } bind def
  2898.  
  2899. /ScaleArg % <arg> <Domain> ScaleArg <scaled_arg>
  2900. {
  2901.   aload pop                                             % a d0 d1
  2902.   1 index sub                                           % a d0 d1-d0
  2903.   3 1 roll                                              % d1-d0 a d0
  2904.   sub exch div                                          % (a-d0)/(d1-d0)
  2905. } bind def
  2906.  
  2907. /ScaleArgN % <arg1> ... <argN> <Domain> ScaleArg <scaled_arg1> ... <scaled_argN>
  2908. {
  2909.   dup length 2 sub -2 0 {                               % a1 ... an [] 2i
  2910.     2                                                   % a1 ... an [] 2i 2
  2911.     2 index 3 1 roll getinterval                        % a1 ... an [] []
  2912.     3 2 roll                                            % a1 ... [] [] an
  2913.     exch //ScaleArg exec                                % a1 ... [] an'
  2914.     1 index length 2 idiv 1 add 1 roll                  % an' a1 ... []
  2915.   } for                                                 % a1' ... an' []
  2916.   pop                                                   % a1' ... an'
  2917. } bind def
  2918.  
  2919.  
  2920. /ComputeFunction_10 % <scaled_arg> <sample_array> ComputeFunction_10 <result>
  2921. { % Assuming a 1-argument 1-result function type 0.
  2922.   //PDFR_DEBUG {
  2923.     (ComputeFunction_10 beg ) print 1 index //=only exec ( stack=) print count =
  2924.   } if
  2925.   exch                                                  % [] x
  2926.   dup 1 eq {
  2927.     pop dup length 1 sub get                            % y
  2928.   } {
  2929.     1 index length 1 sub mul                            % [] x*(l-1)
  2930.     dup dup floor sub                                   % [] x*(l-1) f
  2931.     dup 0 eq {
  2932.       pop cvi get                                       % y
  2933.     } {
  2934.       3 1 roll floor cvi                                % f [] i
  2935.       2 getinterval                                     % f []
  2936.       aload pop                                         % f y0 y1
  2937.       2 index mul 3 2 roll 1 exch sub 3 2 roll mul add  % y1*f+(1-f)*y0
  2938.     } ifelse
  2939.   } ifelse
  2940.   //PDFR_DEBUG {
  2941.     (ComputeFunction_10 end ) print dup //=only exec ( stack=) print count =
  2942.   } if
  2943. } bind def
  2944.  
  2945. /ComputeFunction_n0 % <arg1> .... <argn> <sample_array> <n> ComputeFunction_n0 <result>
  2946. { % Assuming a n-argument 1-result function type 0.
  2947.   //PDFR_DEBUG {
  2948.     (ComputeFunction_n0 beg N=) print dup //=only exec ( stack=) print count =
  2949.   } if
  2950.   dup 0 eq {                                   % v 0
  2951.     pop                                        % v
  2952.   } {                                          
  2953.     dup 2 add -1 roll                          % a2 .... an [] n a1
  2954.     dup 3 index length 1 sub ge {
  2955.       pop 1 sub                                % a2 .... an [] n-1
  2956.       exch dup length 1 sub get exch
  2957.       //PDFReader /ComputeFunction_n0 get exec
  2958.     } {
  2959.       dup floor cvi dup                        % a2 .... an [] n a1 i i
  2960.       4 index exch get                         % a2 .... an [] n a1 i [i]
  2961.       3 index dup                              % a2 .... an [] n a1 i [i] n n
  2962.       5 add copy                               % a2 .... an [] n a1 i [i] n a2 .... an [] n a1 i [i] n
  2963.       6 2 roll                                 % a2 .... an [] n a1 i [i] n a2 .... an [i] n [] n a1 i
  2964.       pop pop pop pop                          % a2 .... an [] n a1 i [i] n a2 .... an [i] n 
  2965.       1 sub                                    % a2 .... an [] n a1 i [i] n a2 .... an [i] n-1
  2966.       //PDFReader /ComputeFunction_n0 get exec % a2 .... an [] n a1 i [i] n v0
  2967.       3 2 roll pop                             % a2 .... an [] n a1 i n v0
  2968.       exch                                     % a2 .... an [] n a1 i v0 n
  2969.       4 3 roll exch                            % a2 .... an [] n i v0 a1 n
  2970.       4 add 2 roll 1 add                       % v0 a1 a2 .... an [] n i+1
  2971.       3 2 roll exch get                        % v0 a1 a2 .... an n [i+1]
  2972.       exch 1 sub                               % v0 a1 a2 .... an [i+1] n-1
  2973.       //PDFReader /ComputeFunction_n0 get exec % v0 a1 v1
  2974.       1 index mul                              % v0 a1 v1*a1
  2975.       3 1 roll                                 % v1*a1 v0 a1
  2976.       1 exch sub mul add                       % v1*a1+v0*(1-a1)
  2977.     } ifelse
  2978.   } ifelse
  2979.   //PDFR_DEBUG {
  2980.     (ComputeFunction_n0 end ) print dup //=only exec ( stack=) print count =
  2981.   } if
  2982. } bind def
  2983.  
  2984. /FunctionToProc_x01 % <function_dict> FunctionToProc_x01 <proc>
  2985. { % Assuming a n-argument 1-result function type 0.
  2986.   % The stream is already converted to the array /Data.
  2987.   dup /Domain get exch
  2988.   dup /Data get 0 get exch
  2989.   /Size get length 
  2990.   [ 4 1 roll
  2991.     //PDFR_DEBUG {
  2992.       { (function beg, stack =) print count //=only exec (\n) print } /exec load
  2993.       5 2 roll
  2994.     } if
  2995.     dup 1 gt {                                 % a1 ... an Domain Data n
  2996.       { mark exch                              % a1 ... an Domain Data [ n
  2997.         3 add 2 roll                           % Data [ a1 ... an Domain
  2998.         //ScaleArgN exec                       % Data [ a1 ... an
  2999.         counttomark dup                        % Data [ a1 ... an n n
  3000.         3 add -2 roll                          % a1 ... an n Data [
  3001.         pop exch                               % a1 ... an Data n
  3002.         //ComputeFunction_n0 exec
  3003.       } /exec load
  3004.     } {
  3005.       pop                                      % a1 Domain Data
  3006.       3 1 /roll load //ScaleArg /exec load     % Data a1s
  3007.       /exch load
  3008.       //ComputeFunction_10 /exec load
  3009.     } ifelse
  3010.     //PDFR_DEBUG {
  3011.       (function end, stack =) /print load /count load //=only /exec load (\n) /print load
  3012.     } if
  3013.   ] cvx
  3014.   //PDFR_DEBUG {
  3015.     (Made a procedure for the 1-result function :) =
  3016.     dup ==
  3017.   } if
  3018. } bind def
  3019.  
  3020. /FunctionProcDebugBeg  %  - FunctionProcDebugBeg -
  3021. { (FunctionProcDebugBeg ) print count =
  3022. } bind def
  3023.  
  3024. /FunctionProcDebugEnd  %  - FunctionProcDebugEnd -
  3025. { (FunctionProcDebugEnd ) print count =
  3026. } bind def
  3027.  
  3028. /FunctionToProc_x0n % <function_dict> <m> FunctionToProc_x0n <proc>
  3029. { % Assuming a n-argument m-result function type 0.
  3030.   % The stream is already converted to the array /Data.
  3031.   %
  3032.   % Making the procedure : { Domain //ScaleArg exec ... n copy {} exec n+1 1 roll ... }
  3033.   % except "n copy" for the last chunk.
  3034.   %
  3035.   PDFR_DEBUG {
  3036.     (FunctionToProc_x0n beg m=) print dup =
  3037.   } if
  3038.   1 index /Size get length exch                         % f n m
  3039.   dup 7 mul 2 add array                                 % f n m []
  3040.   PDFR_DEBUG {
  3041.     dup 0 //FunctionProcDebugBeg put
  3042.   } {
  3043.     dup 0 //DoNothing put
  3044.   } ifelse
  3045.   dup 1 /exec load put
  3046.   dup 2 5 index /Domain get put
  3047.   2 index 1 eq {
  3048.     dup 3 //ScaleArg put
  3049.   } {
  3050.     dup 3 //ScaleArgN put
  3051.   } ifelse
  3052.   dup 4 /exec load put
  3053.   1 index 1 sub 0 exch 1 exch {                         % f n m [] i
  3054.     dup 7 mul 5 add                                     % f n m [] i i1
  3055.     1 index 4 index 1 sub ne {
  3056.       dup 3 index exch 6 index put 1 add
  3057.       dup 3 index exch /copy load put 1 add
  3058.     } if
  3059.     [                                                   % f n m [] i i1 [
  3060.       6 index /Data get 3 index get                     % f n m [] i i1 [ di
  3061.       6 index 1 eq {
  3062.         //ComputeFunction_10 /exec load
  3063.       } {
  3064.         6 index
  3065.         //ComputeFunction_n0 /exec load
  3066.       } ifelse
  3067.     ] cvx                                               % f n m [] i i1 {}
  3068.     3 index exch 2 index exch put 1 add                 % f n m [] i i1
  3069.     2 index 1 index /exec load put 1 add
  3070.     1 index 4 index 1 sub ne {
  3071.       2 index 1 index 6 index 1 add put 1 add
  3072.       2 index 1 index 1 put 1 add
  3073.       2 index 1 index /roll load put                    % f n m [] i i1
  3074.     } if
  3075.     pop pop                                             % f n m []
  3076.   } for
  3077.   PDFR_DEBUG {
  3078.     dup dup length 2 sub //FunctionProcDebugEnd put
  3079.   } {
  3080.     dup dup length 2 sub //DoNothing put
  3081.   } ifelse
  3082.   dup dup length 1 sub /exec load put
  3083.   cvx exch pop exch pop exch pop
  3084.   //PDFR_DEBUG {
  3085.     (Made a procedure for the n-argument function :) =
  3086.     dup ==
  3087.   } if
  3088.   PDFR_DEBUG {
  3089.     (FunctionToProc_x0n end) =
  3090.   } if
  3091. } bind def
  3092.  
  3093. /MakeTableRec % <func_obj> <n> MakeTableRec <array>
  3094. {
  3095.   0 % to be bound below
  3096.   exec
  3097. } bind def
  3098.  
  3099. /MakeTable % <func_obj> <n> MakeTable <array>
  3100. { //PDFR_DEBUG {
  3101.     (MakeTable beg ) print count =
  3102.   } if
  3103.   1 index /Size get exch                                % f S N
  3104.   1 sub dup                                             % f S n n
  3105.   3 1 roll                                              % f n S n
  3106.   get                                                   % f n s
  3107.   array                                                 % f n []
  3108.   1 index 0 eq {
  3109.     exch pop exch pop                                   % []
  3110.   } {
  3111.     dup length 1 sub -1 0 {                             % f n [] i
  3112.       3 index 3 index //MakeTableRec exec               % f n [] i []
  3113.       2 index 3 1 roll put                              % f n []
  3114.     } for
  3115.     exch pop exch pop
  3116.   } ifelse
  3117.   //PDFR_DEBUG {
  3118.     (MakeTable end ) print count =
  3119.   } if
  3120. } bind def
  3121.  
  3122. //MakeTableRec 0 //MakeTable put
  3123.  
  3124. /StoreSample  % <value> <table> <dimensions> StoreSample -
  3125. { % The reader is on the dictionary stack.
  3126.   1 sub 
  3127.   dup 0 eq {
  3128.     pop                                                 % v []
  3129.   } {
  3130.     -1 1 {                                              % v T i
  3131.       I exch get get                                    % v T[I[i]]
  3132.     } for                                               % v []
  3133.   } ifelse
  3134.   I 0 get 3 2 roll put
  3135. } bind def
  3136.  
  3137. /ReadSample32   % - ReadSample32 <value>
  3138. {
  3139.   4 {
  3140.     File read not {
  3141.       mark (Insufficient data for function.) //error exec
  3142.     } if
  3143.   } repeat
  3144.   pop % Ignore the last byte because it can't fit into 'real'.
  3145.   3 1 roll exch
  3146.   256 mul add 256 mul add
  3147.   //1_24_bitshift_1_sub div
  3148. } bind def
  3149.  
  3150. /ReadSample   % - ReadSample <value>
  3151. { % The reader in on the dictionary stack.
  3152.   Buffer BitsLeft BitsPerSample
  3153.   { 2 copy ge {
  3154.       exit
  3155.     } if
  3156.     3 1 roll 
  3157.     8 add 3 1 roll
  3158.     256 mul File read not {
  3159.       mark (Insufficient data for function.) //error exec
  3160.     } if
  3161.     add
  3162.     3 1 roll
  3163.   } loop                                                % b bl pbs
  3164.   sub dup                                               % b bl-bps bl-bps
  3165.   2 index exch                                          % b bl-bps b bl-bps
  3166.   neg bitshift                                          % b bl-bps v
  3167.   2 copy exch bitshift                                  % b bl-bps v v<<(bl-bps)
  3168.   4 3 roll exch sub                                     % bl-bps v b-(v<<(bl-bps))
  3169.   /Buffer exch def                                      % bl-bps v
  3170.   exch /BitsLeft exch def                               % v
  3171.   Div div                                               % v/(1<<pbs-1)
  3172. } bind def
  3173.  
  3174. /ReadSamplesRec % <dimensions> ReadSamplesRec -
  3175. { 0 % Will be bound below
  3176.   exec
  3177. } bind def
  3178.  
  3179. /ReadSamples % <dimensions> ReadSamples -
  3180. { % The reader in on the dictionary stack.
  3181.   //PDFR_DEBUG {
  3182.     (ReadSamples beg ) print count =
  3183.   } if
  3184.   dup 1 eq {
  3185.     pop
  3186.     0 1 Size 0 get 1 sub {
  3187.       I exch 0 exch put
  3188.       0 1 M 1 sub {
  3189.         dup Range exch 2 mul 2 getinterval              % m r 
  3190.         //PDFR_DEBUG {
  3191.           (Will read a sample ... ) print
  3192.         } if
  3193.         BitsPerSample 32 eq { //ReadSample32 } { //ReadSample } ifelse
  3194.         exec exch //ScaleVal exec                       % m v
  3195.         //PDFR_DEBUG {
  3196.           (value=) print dup =
  3197.         } if
  3198.         exch Table exch get                             % v []
  3199.         Size length //StoreSample exec                  %
  3200.       } for
  3201.     } for
  3202.   } {
  3203.     1 sub 
  3204.     dup Size exch get 0 exch 1 exch 1 sub {             % d-1 i
  3205.       I exch 2 index exch put                           % d-1
  3206.       dup //ReadSamplesRec exec                         % d-1
  3207.     } for
  3208.     pop
  3209.   } ifelse
  3210.   //PDFR_DEBUG {
  3211.     (ReadSamples end ) print count =
  3212.   } if
  3213. } bind def
  3214.  
  3215. //ReadSamplesRec 0 //ReadSamples put
  3216.  
  3217. /StreamToArray % <obj> StreamToArray -
  3218. { //PDFR_DEBUG {
  3219.     (StreamToArray beg ) print count =
  3220.   } if
  3221.   userdict /FuncDataReader get begin                    % f
  3222.     dup /BitsPerSample get /BitsPerSample exch def
  3223.     dup /Size get length /N exch def
  3224.     dup /Range get length 2 idiv /M exch def
  3225.     1 BitsPerSample bitshift 1 sub /Div exch def
  3226.     /BitsLeft 0 def
  3227.     /Buffer 0 def
  3228.     dup /Size get /Size exch def                        % f
  3229.     dup /Range get /Range exch def                      % f
  3230.     /File 1 index //MakeStreamReader exec def           % f
  3231.     /I [ N { 0 } repeat ] def                           % f
  3232.     M array                                             % f []
  3233.     dup length 1 sub -1 0 {                             % f [] m
  3234.       2 index N //MakeTable exec                        % f [] m T
  3235.       2 index 3 1 roll put                              % f []
  3236.     } for
  3237.     /Table exch def                                     % f
  3238.     N //ReadSamples exec                                % f
  3239.     PDFR_DEBUG {
  3240.       (Table = ) print Table ==
  3241.     } if
  3242.     /Data Table put                                     % 
  3243.   end
  3244.   //PDFR_DEBUG {
  3245.     (StreamToArray end ) print count =
  3246.   } if
  3247. } bind def
  3248.  
  3249. /FunctionToProc10 % <function_dict> FunctionToProc10 <proc>
  3250. { % Assuming a 1-argument function type 0.
  3251.   PDFR_DEBUG {
  3252.     (FunctionToProc10 beg, Range = ) print dup /Range get ==
  3253.   } if
  3254.   dup /Order //knownget exec {
  3255.     1 ne {
  3256.       (Underimplemented function Type 0 Order 3.) =
  3257.     } if
  3258.   } if
  3259.   dup //StreamToArray exec                              % f
  3260.   dup /Range get length dup 2 eq {
  3261.     pop //FunctionToProc_x01 exec                       % proc
  3262.   } {
  3263.     2 idiv //FunctionToProc_x0n exec                    % proc
  3264.   } ifelse
  3265.   PDFR_DEBUG {
  3266.     (FunctionToProc10 end) =
  3267.   } if
  3268. } bind def
  3269.  
  3270. /FunctionToProc12 % <function_dict> FunctionToProc12 <proc>
  3271. { begin
  3272.     currentdict /C0 //knownget exec { length 1 eq } { true } ifelse {
  3273.       N
  3274.       currentdict /C0 //knownget exec {
  3275.         0 get
  3276.       } {
  3277.         0
  3278.       } ifelse
  3279.       currentdict /C1 //knownget exec {
  3280.         0 get
  3281.       } {
  3282.         1
  3283.       } ifelse
  3284.       1 index sub
  3285.       [ 4 1 roll
  3286.         {               % x n c0 c1-c0
  3287.           4 2 roll      % c0 c1-c0 x n
  3288.           excp mul add  % y
  3289.         } aload pop
  3290.       ] cvx
  3291.     } { 
  3292.         [ 
  3293.           0 1 C0 length 1 sub {
  3294.             N                                           % [ ... i n
  3295.             C0 2 index get                              % [ ... i n c0
  3296.             C1 3 index get                              % [ ... i n c0 c1
  3297.             4 3 roll pop                                % [ ... n c0 c1
  3298.             1 index sub                                 % [ ... n c0 c1-c0
  3299.             [ /dup load                                 % [ ... n c0 c1-c0 [ dup
  3300.               5 2 roll                                  % [ ... [ dup n c0 c1-c0
  3301.               {                 % x x n c0 c1-c0        
  3302.                 4 2 roll        % x c0 c1-c0 x n
  3303.                 exp mul add     % x y
  3304.                 exch            % y x
  3305.               } aload pop
  3306.             ] cvx 
  3307.             /exec load
  3308.           } for
  3309.           /pop load
  3310.         ] cvx
  3311.     } ifelse
  3312.   end
  3313.   //PDFR_DEBUG {
  3314.     (FunctionType2Proc : ) print dup == 
  3315.   } if
  3316. } bind def
  3317.  
  3318.  
  3319. /FunctionToProc14 % <function_dict> FunctionToProc14 <proc>
  3320. { //MakeStreamReader exec cvx exec
  3321.   //PDFR_DEBUG {
  3322.     (FunctionType4Proc : ) print dup == 
  3323.   } if
  3324. } bind def
  3325.  
  3326. /FunctionToProc1 % <function_dict> FunctionToProc <proc>
  3327. { % Assuming a 1-argument function.
  3328.   dup /FunctionType get
  3329.   { dup 0 eq {
  3330.       pop //FunctionToProc10 exec exit
  3331.     } if
  3332.     dup 2 eq {
  3333.       pop //FunctionToProc12 exec exit
  3334.     } if
  3335.     dup 4 eq {
  3336.       pop //FunctionToProc14 exec exit
  3337.     } if
  3338.     mark exch (Function type ) exch ( isn't implemented yet.) //error exec
  3339.   } loop
  3340. } bind def
  3341.  
  3342. /FunctionToProc20 % <function_dict> FunctionToProc20 <proc>
  3343. { % Assuming a 2-argument function type 0.
  3344.   PDFR_DEBUG {
  3345.     (FunctionToProc20, Range = ) print dup /Range get ==
  3346.   } if
  3347.   dup /Order //knownget exec {
  3348.     1 ne {
  3349.       (Underimplemented function Type 0 Order 3.) =
  3350.     } if
  3351.   } if
  3352.   dup //StreamToArray exec                              % f
  3353.   dup /Range get length dup 2 eq {
  3354.     pop //FunctionToProc_x01 exec                       % proc
  3355.   } {
  3356.     2 idiv //FunctionToProc_x0n exec                    % proc
  3357.   } ifelse
  3358. } bind def
  3359.  
  3360. /FunctionToProc % <function_dict> FunctionToProc <proc>
  3361. { //PDFR_DEBUG {
  3362.     (FunctionToProc beg ) print count =
  3363.   } if
  3364.   dup /Domain get length 2 idiv
  3365.   {
  3366.     dup 1 eq {
  3367.       pop //FunctionToProc1 exec exit
  3368.     } if
  3369.     dup 2 eq {
  3370.       pop //FunctionToProc20 exec exit
  3371.     } if
  3372.     mark (Functions with many arguments aren't implemented yet.) //error exec
  3373.   } loop
  3374.   //PDFR_DEBUG {
  3375.     (FunctionToProc end ) print count =
  3376.   } if
  3377. } bind def
  3378.  
  3379. /spotfunctions mark  % Copied from pdf_draw.ps 
  3380.   /Round {
  3381.     abs exch abs 2 copy add 1 le {
  3382.       dup mul exch dup mul add 1 exch sub 
  3383.     } {
  3384.       1 sub dup mul exch 1 sub dup mul add 1 sub
  3385.     } ifelse
  3386.   }
  3387.   /Diamond {
  3388.     abs exch abs 2 copy add .75 le {
  3389.       dup mul exch dup mul add 1 exch sub
  3390.     } {
  3391.       2 copy add 1.23 le {
  3392.         .85 mul add 1 exch sub
  3393.       } {
  3394.         1 sub dup mul exch 1 sub dup mul add 1 sub
  3395.       } ifelse
  3396.     } ifelse
  3397.   }
  3398.   /Ellipse {
  3399.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  3400.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  3401.     } {
  3402.       dup 1 gt {
  3403.         pop 1 exch sub dup mul exch 1 exch sub
  3404.         .75 div dup mul add 4 div 1 sub
  3405.       } {
  3406.         .5 exch sub exch pop exch pop
  3407.       } ifelse
  3408.     } ifelse
  3409.   }
  3410.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  3411.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  3412.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  3413.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  3414.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  3415.   /Line { exch pop abs neg }
  3416.   /LineX { pop }
  3417.   /LineY { exch pop }
  3418.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  3419.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  3420.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  3421.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  3422.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  3423.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  3424.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  3425.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  3426.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  3427.   /InvertedDouble {
  3428.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  3429.   }
  3430. .dicttomark readonly def
  3431.  
  3432. % ===================== Color Spaces and Colors ==============
  3433.  
  3434. /CheckColorSpace %  <key> <val> CheckColorSpace  <key> <val>
  3435. {
  3436.   dup type /arraytype ne {
  3437.     mark (Resource ) 3 index ( must be an array.) //error exec
  3438.   } if
  3439. } bind def
  3440.  
  3441. /SubstitutePDFColorSpaceRec  % <array> SubstitutePDFColorSpace <array>
  3442. { 0 % Will be bound below
  3443.   exec
  3444. } bind def
  3445.  
  3446. /SubstitutePDFColorSpace % <array> SubstitutePDFColorSpace <array>
  3447. { 
  3448.   { 
  3449.     dup 0 get /Pattern eq {
  3450.       dup length 1 gt {
  3451.         dup dup 1 //CheckColorSpace //ResolveA exec
  3452.         dup type /nametype ne {
  3453.           //SubstitutePDFColorSpaceRec exec
  3454.         } if
  3455.         1 exch put
  3456.       } if
  3457.       exit
  3458.     } if
  3459.     dup 0 get /Indexed eq {
  3460.       exit
  3461.     } if
  3462.     dup 0 get /Separation eq {
  3463.       dup dup 2 //CheckColorSpace //ResolveA exec
  3464.       dup type /nametype ne {
  3465.         //SubstitutePDFColorSpaceRec exec
  3466.       } if
  3467.       2 exch put
  3468.       exit
  3469.     } if
  3470.     dup 0 get /CalGray eq {
  3471.       1 get                                             % dict
  3472.       dup /Gamma //knownget exec {
  3473.         [ exch /exp load ] cvx
  3474.         1 index exch /DecodeLMN exch put
  3475.       } if                              
  3476.       [ exch /CIEBasedA exch ]                          % []
  3477.       exit
  3478.     } if
  3479.     dup 0 get /CalRGB eq {
  3480.       1 get                                             % dict
  3481.       dup /Matrix //knownget exec { 
  3482.         1 index exch /MatrixLMN exch put
  3483.       } if
  3484.       dup /Gamma //knownget exec {
  3485.         aload pop
  3486.         [ exch /exp load ] cvx
  3487.         3 1 roll
  3488.         [ exch /exp load ] cvx
  3489.         3 1 roll
  3490.         [ exch /exp load ] cvx
  3491.         3 1 roll
  3492.         3 array astore
  3493.         1 index exch /DecodeLMN exch put
  3494.       } if                              
  3495.       [ exch /CIEBasedABC exch ]                        % []
  3496.       exit
  3497.     } if
  3498.     dup 0 get /Lab eq {
  3499.       1 get                                             % dict
  3500.       begin
  3501.         currentdict /Range //knownget exec { aload pop } { -100 100 -100 100 } ifelse
  3502.           0 100 6 2 roll 6 array astore 
  3503.           /RangeABC exch def
  3504.         /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] def
  3505.         /MatrixABC [1 1 1 1 0 0 0 0 -1] def
  3506.         { dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse }
  3507.         /DecodeLMN [
  3508.           % Store white point implicitly inside procedures.
  3509.           [ 3 index aload pop WhitePoint 0 get /mul load ] cvx
  3510.           [ 4 index aload pop WhitePoint 1 get /mul load ] cvx
  3511.           [ 5 index aload pop WhitePoint 2 get /mul load ] cvx
  3512.         ] def pop
  3513.         //PDFR_DEBUG {
  3514.           (Constructed from Lab <<) =
  3515.           currentdict { exch = == } forall
  3516.           (>>) =
  3517.         } if
  3518.         [ /CIEBasedABC currentdict ]                    % []
  3519.       end
  3520.       exit
  3521.       pop
  3522.     } if
  3523.     mark exch (Unimplemented color space ) exch //error exec
  3524.   } loop
  3525. } bind def
  3526.  
  3527. //SubstitutePDFColorSpaceRec 0 //SubstitutePDFColorSpace put
  3528.  
  3529. /ResolveArrayElement  % <array> <index> ResolveArrayElement <array>
  3530. { 2 copy get xcheck {
  3531.     2 copy get exec
  3532.     2 index 4 1 roll put
  3533.   } {
  3534.     pop
  3535.   } ifelse
  3536. } bind def
  3537.  
  3538. /ResolveColorSpaceArrayRec  % <color_space> ResolveColorSpaceArrayRec <color_space>
  3539. { 0 % Will be bond below.
  3540.   exec
  3541. } bind def
  3542.  
  3543. /SetColorSpaceSafe % <color_space> SetColorSpaceSafe -
  3544. {
  3545.   % This works against applying a pattern over a pattern space,
  3546.   % which may happen due to duplication of stroking and non-stroking colors.
  3547.   % gs3.70 fails when setting a pattern space and 
  3548.   % the (old) current color space is a pattern space.
  3549.   %
  3550.   % If the new color space is an array and it appears equal to the old one, 
  3551.   % do nothing. Otherwise set the new color space.
  3552.   PDFR_DEBUG {
  3553.     (SetColorSpaceSafe beg) =
  3554.   } if
  3555.   currentcolorspace dup type /arraytype eq {     % cs cs'
  3556.     1 index type /arraytype eq {
  3557.       dup length 2 index length eq {
  3558.         false exch                               % cs b cs'
  3559.         dup length 0 exch 1 exch 1 sub {         % cs b cs' i
  3560.           dup                                    % cs b cs' i i
  3561.           4 index exch get exch                  % cs b cs' csi i
  3562.           2 index exch get                       % cs b cs' csi cs'i
  3563.           ne {                                   % cs b cs'
  3564.             exch pop true exch exit
  3565.           } if
  3566.         } for                                    % cs b cs'
  3567.         pop                                      % cs b
  3568.         { 
  3569.           setcolorspace
  3570.         } {
  3571.           pop
  3572.         } ifelse                                 %
  3573.       } {
  3574.         pop setcolorspace
  3575.       } ifelse
  3576.     } {
  3577.       pop setcolorspace
  3578.     } ifelse
  3579.   } {                                            % cs cs'
  3580.     pop setcolorspace
  3581.   } ifelse
  3582.   PDFR_DEBUG {
  3583.     (SetColorSpaceSafe end) =
  3584.   } if
  3585. } bind def
  3586.  
  3587. /ResolveColorSpaceArray  % <color_space> ResolveColorSpaceArray <color_space>
  3588. {
  3589.   //PDFR_DEBUG {
  3590.     (ResolveColorSpaceArray beg ) print dup ==
  3591.   } if
  3592.   dup 0 get /Indexed eq {
  3593.     1 //ResolveArrayElement exec
  3594.     dup dup 1 get 
  3595.     dup type /arraytype eq {
  3596.       //SubstitutePDFColorSpace exec 
  3597.       //ResolveColorSpaceArrayRec exec
  3598.       1 exch put
  3599.     } {
  3600.       pop pop
  3601.     } ifelse
  3602.   } if
  3603.   dup 0 get /Separation eq {
  3604.     3 //ResolveArrayElement exec
  3605.     dup 3 get //FunctionToProc exec
  3606.     2 copy 3 exch put
  3607.     pop
  3608.   } if
  3609.   PDFR_DEBUG {
  3610.     (Construcrted color space :) =
  3611.     dup ==
  3612.   } if
  3613.   //PDFR_DEBUG {
  3614.     (ResolveColorSpaceArray end ) print dup ==
  3615.   } if
  3616. } bind def
  3617.  
  3618. //ResolveColorSpaceArrayRec 0 //ResolveColorSpaceArray put
  3619.  
  3620. /ResolveColorSpace  % <name> ResolveColorSpace <color_space>
  3621. { 
  3622.   //PDFR_DEBUG {
  3623.     (ResolveColorSpace beg ) print dup =
  3624.   } if
  3625.   dup //SimpleColorSpaceNames exch known not {
  3626.     dup //PDFColorSpaces exch //knownget exec {
  3627.       exch pop
  3628.       //PDFR_DEBUG {
  3629.         (ResolveColorSpace known ) =
  3630.       } if
  3631.     } {
  3632.       dup                                               % n n
  3633.       //PDFReader /CurrentObject get /Context get /Resources get 
  3634.       /ColorSpace //DoNothing //ResolveD exec
  3635.       exch //CheckColorSpace //ResolveD exec            % n cs
  3636.       dup type /arraytype eq {
  3637.         //SubstitutePDFColorSpace exec
  3638.         //ResolveColorSpaceArray exec
  3639.         dup //PDFColorSpaces 4 2 roll put               % []
  3640.       } if
  3641.     } ifelse
  3642.   } if
  3643.   //PDFR_DEBUG {
  3644.     (ResolveColorSpace end ) print dup ==
  3645.   } if
  3646. } bind def
  3647.  
  3648. /CheckPattern %  <key> <val> CheckPattern  <key> <val>
  3649. {
  3650.   dup /PatternType //knownget exec {
  3651.     dup 1 ne {
  3652.       mark (Resource ) 4 index ( is a shading, which can't be handled at level 2. ) //error exec
  3653.     } if
  3654.     pop
  3655.   } if
  3656.   dup /Type get /Pattern ne {
  3657.     mark (Resource ) 4 index ( must have /Type/Pattern .) //error exec
  3658.   } if
  3659. } bind def
  3660.  
  3661. /PaintProc % 
  3662. { /Context get                                          % pattern_object
  3663.   //RunDelayedStream exec
  3664. } bind def
  3665.  
  3666. /ResolvePattern % <name> ResolvePattern <pattern>
  3667. {
  3668.   dup                                                   % n n
  3669.   % Since makepattern makes a local dictionary,
  3670.   % we cahche them in userdict, which is in local VM.
  3671.   % Assuming unique resource name through the document
  3672.   userdict /PDFR_Patterns get                           % n n d
  3673.   exch //knownget exec {                                % n p
  3674.     exch pop                                            % p
  3675.   } {                                                   % n
  3676.     dup                                                 % n n
  3677.     //PDFReader /CurrentObject get /Context get /Resources get 
  3678.     /Pattern //DoNothing //ResolveD exec
  3679.     exch //CheckPattern //ResolveD exec                 % n o
  3680.     dup dup /Context exch put
  3681.     dup /Resources //DoNothing //ResolveD exec pop
  3682.     dup /PaintProc //PaintProc put
  3683.     gsave userdict /PDFR_InitialGS get setgstate
  3684.     currentglobal exch false setglobal % gs3_70 compatibility
  3685.     dup /Matrix get
  3686.     makepattern                                         % n p
  3687.     exch setglobal % gs3_70 compatibility
  3688.     grestore
  3689.     dup userdict /PDFR_Patterns get                     % n p p d
  3690.     4 2 roll                                            % p d n p
  3691.     put                                                 % p
  3692.   } ifelse
  3693. } bind def
  3694.  
  3695. /SetColor % Same arguments and result as for scn
  3696. { //PDFR_DEBUG {
  3697.     (SetColor beg) =
  3698.   } if
  3699.   currentcolorspace dup type /nametype eq {
  3700.     pop setcolor    
  3701.   } {
  3702.     0 get /Pattern eq {
  3703.       //ResolvePattern exec setpattern
  3704.     } {
  3705.       setcolor
  3706.     } ifelse
  3707.   } ifelse
  3708.   //PDFR_DEBUG {
  3709.     (SetColor end) =
  3710.   } if
  3711. } bind def
  3712.  
  3713. % ===================== Images ===============================
  3714.  
  3715. /ImageKeys 15 dict begin
  3716.   /BPC /BitsPerComponent def
  3717.   /CS /ColorSpace def
  3718.   /D /Decode def
  3719.   /DP /DecodeParms def
  3720.   /F /Filter def
  3721.   /H /Height def
  3722.   /IM /ImageMask def
  3723.   % /Intent is undefined - pdfwrite must take care of.
  3724.   /I /Interpolate def
  3725.   /W /Width def
  3726. currentdict end readonly def
  3727.  
  3728. /ImageValues 15 dict begin
  3729.   /G   /DeviceGray def
  3730.   /RGB /DeviceRGB def
  3731.   /CMYK /DeviceCMYK def 
  3732.   /I   /Indexed def
  3733.   /AHx /ASCIIHexDecode def
  3734.   /A85 /ASCII85Decode def
  3735.   /LZW /LZWDecode def
  3736.   /Fl  /FlateDecode def
  3737.   /RL  /RunLengthDecode def
  3738.   /CCF /CCITTFaxDecode def
  3739.   /DCT /DCTDecode def
  3740. currentdict end readonly def
  3741.  
  3742. /GetColorSpaceRange
  3743. { 2 index /ColorSpace get
  3744.   dup type /arraytype eq {
  3745.     1 get
  3746.   } if
  3747.   exch //knownget exec {
  3748.     exch pop
  3749.   } if
  3750. } bind def
  3751.  
  3752. /DecodeArrays 15 dict begin
  3753.   /DeviceGray { [0 1] } def
  3754.   /DeviceRGB { [0 1 0 1 0 1] } def
  3755.   /DeviceCMYK { [0 1 0 1 0 1 0 1] } def 
  3756.   /Indexed { dup /ColorSpace get 2 get [ exch 0 exch ] } def
  3757.   /Separation { [0 1] } def
  3758.   /CIEBasedA { [0 1]  /RangeA //GetColorSpaceRange exec } def
  3759.   /CIEBasedABC { [0 1 0 1 0 1] /RangeABC //GetColorSpaceRange exec } def
  3760. currentdict end readonly def
  3761.  
  3762. /Substitute % <key> <dict> Substitute <key>
  3763. { 1 index //knownget exec {
  3764.     exch pop
  3765.   } if
  3766. } bind def
  3767.  
  3768. /DebugImagePrinting  % <image_dict> DebugImagePrinting <image_dict>
  3769. {
  3770.   //PDFR_DEBUG {
  3771.     (Image :) =
  3772.     dup { exch //=only exec ( ) print == 
  3773.     } forall
  3774.   } if
  3775. } bind def
  3776.  
  3777. /CompleteImage  % <dict> CompleteImage <image_dict>
  3778. {
  3779.   dup /ColorSpace known {
  3780.     dup /ColorSpace //CheckColorSpace //ResolveD exec pop
  3781.   } if
  3782.   dup /Decode known not {
  3783.     dup /ColorSpace //knownget exec { 
  3784.       dup type /arraytype eq {
  3785.         0 get
  3786.       } if
  3787.       //DecodeArrays exch get exec 
  3788.     } {
  3789.       [0 1]
  3790.     } ifelse
  3791.     1 index exch /Decode exch put
  3792.   } if
  3793.   dup /ImageMatrix [2 index /Width get 0 0 5 index /Height get neg 
  3794.                                         0 7 index /Height get] put % Not sure why upside down ?
  3795.   //DebugImagePrinting exec
  3796. } bind def
  3797.  
  3798. /CompleteInlineImage  % <dict> CompleteInlineImage <image_dict>
  3799. {
  3800.   //PDFR_DEBUG {
  3801.     (CompleteInlineImage beg) =
  3802.   } if
  3803.   dup /ImageType known not {
  3804.     dup /ImageType 1 put
  3805.   } if
  3806.   dup length dict exch {                            % d key val
  3807.     exch //ImageKeys //Substitute exec
  3808.     dup /Filter eq {
  3809.       exch //ImageValues //Substitute exec exch
  3810.     } if
  3811.     dup /ColorSpace eq {
  3812.       exch 
  3813.       dup //ImageValues exch //knownget exec {
  3814.         exch pop
  3815.       } {
  3816.         //ResolveColorSpace exec
  3817.       } ifelse
  3818.       exch
  3819.     } if
  3820.     exch
  3821.     2 index 3 1 roll put
  3822.   } forall
  3823.   //CompleteImage exec
  3824.   dup /DataSource 2 copy get                        % d d /n f
  3825.   2 index //AppendFilters exec put
  3826.   //PDFR_DEBUG {
  3827.     (CompleteInlineImage end) =
  3828.   } if
  3829. } bind def
  3830.  
  3831. /CompleteOutlineImage  % <dict> CompleteOutlineImage <image_dict>
  3832. { 
  3833.   currentglobal exch dup gcheck setglobal
  3834.   //PDFR_DEBUG {
  3835.     (CompleteOutlineImage beg) =
  3836.   } if
  3837.   % todo: ResetStreamReader if DataSource already exists.
  3838.   dup dup //MakeStreamReader exec /DataSource exch put
  3839.   dup /ImageType known not {
  3840.     //CompleteImage exec
  3841.     dup /ImageType 1 put
  3842.     dup /ColorSpace known {
  3843.       dup /ColorSpace //CheckColorSpace //ResolveD exec
  3844.       dup type /arraytype eq {
  3845.         //ResolveColorSpaceArray exec
  3846.         //SubstitutePDFColorSpace exec
  3847.         1 index exch /ColorSpace exch put
  3848.       } {
  3849.         pop
  3850.       } ifelse
  3851.     } if
  3852.   } if
  3853.   //PDFR_DEBUG {
  3854.     (CompleteOutlineImage end) =
  3855.   } if
  3856.   exch setglobal
  3857. } bind def
  3858.  
  3859. /DoImage % <image_dict> DoImage -
  3860. {
  3861.   //PDFR_DEBUG {
  3862.     (DoImage beg) =
  3863.   } if
  3864.   gsave
  3865.   dup /ColorSpace //knownget exec { setcolorspace } if
  3866.   dup /ImageMask //knownget exec not { false } if
  3867.   { imagemask } { image } ifelse 
  3868.   grestore
  3869.   //PDFR_DEBUG {
  3870.     (DoImage end) =
  3871.   } if
  3872. } bind def
  3873.  
  3874. % ===================== Viewer State ===============
  3875.  
  3876. /GSave % - GSave -
  3877. {
  3878.   gsave
  3879.   //PDFReader /GraphicStateStackPointer get
  3880.   dup //GraphicStateStack exch get null eq {
  3881.     dup //GraphicStateStack exch //InitialGraphicState length dict put 
  3882.   } if
  3883.   dup //GraphicStateStack exch get
  3884.   //GraphicState exch copy pop
  3885.   1 add //PDFReader exch /GraphicStateStackPointer exch put
  3886. } bind def
  3887.  
  3888. /GRestore % - GRestore -
  3889. {
  3890.   grestore
  3891.   //PDFReader /GraphicStateStackPointer get
  3892.   1 sub dup
  3893.   //PDFReader exch /GraphicStateStackPointer exch put
  3894.   //GraphicStateStack exch get
  3895.   //GraphicState copy pop
  3896. } bind def
  3897.  
  3898.  
  3899. % ===================== Interpret Data Streams ===============
  3900.  
  3901. /SetFont  % <resource_name> <size> SetFont -
  3902. { dup //GraphicState exch /FontSize exch put
  3903.   //ResolveAndSetFont exec
  3904.   //GraphicState /FontMatrixNonHV currentfont /FontMatrix get 1 get 0 ne put
  3905. } bind def
  3906.  
  3907. /ShowText  % <string> ShowText -
  3908. { //GraphicState /TextRenderingMode get 0 eq {
  3909.     //GraphicState /WordSpacing get 0
  3910.     32
  3911.     //GraphicState /CharacterSpacing get 0
  3912.     6 5 roll
  3913.     //GraphicState /FontMatrixNonHV get {
  3914.       % Use xshow to force wy in text space to be 0 (PDF1.7 5.3.3 "Text Space Details")
  3915.       %stack: wordspacing_wx wordspacing_wy space_char charspacing_wx charspacing_wy string
  3916.       [                                         % wwx wwy sp cwx cwy str [
  3917.         7 -2 roll pop                % sp cwx cwy str [ ww
  3918.         5 -2 roll pop                % sp str [ ww cw
  3919.         5 -1 roll                               % str [ ww cw sp
  3920.         {                                       % str [ ... ww cw sp c wx wy
  3921.           exch % will be removed, unless FontMatrix.xx == 0 (FontMatrixNonHV already true)
  3922.           pop                    % str [ ... ww cw sp c w
  3923.           3 index add                           % str [ ... ww cw sp c w+cw
  3924.           exch 2 index eq { 3 index add } if    % str [ ... ww cw sp w+cw[+ww]
  3925.           4 1 roll                              % str [ ... w+cw[+ww] ww cw sp
  3926.         }
  3927.         currentfont /FontMatrix get 0 get 0 ne {
  3928.           1 1 index length 1 sub getinterval cvx % drop the "exch"
  3929.         } if
  3930.         5 index                                 % str [ ww cw sp {cshowproc} str
  3931.         cshow                                   % str [ widths... ww cw sp
  3932.       pop pop pop ]                             % str [widths...]
  3933.       xshow
  3934.     } {
  3935.       awidthshow
  3936.     } ifelse
  3937.   } {
  3938.     //GraphicState /CharacterSpacing get 0 eq
  3939.     //GraphicState /FontMatrixNonHV get not and
  3940.     //GraphicState /WordSpacing get 0 eq and {
  3941.       true charpath
  3942.     } {
  3943.       % Emulate with "{ charpath } cshow".
  3944.       % Not sure how it works with CID fonts.
  3945.       {                                                 % c wx wy
  3946.         exch % will be removed, unless FontMatrixNonHV && FontMatrix.xx == 0
  3947.         pop 0                        % (PDF1.7 5.3.3 "Text Space Details")
  3948.         currentpoint 5 4 roll                           % wx wy x y c
  3949.         ( ) dup 0 3 index put true charpath             % wx wy x y c
  3950.         5 1 roll                                        % c wx wy x y
  3951.         moveto rmoveto                                  % c
  3952.         //GraphicState /CharacterSpacing get 0 rmoveto  % c
  3953.         32 eq {                                         %
  3954.           //GraphicState /WordSpacing get 0 rmoveto
  3955.         } if
  3956.       }
  3957.       //GraphicState /FontMatrixNonHV get dup not exch {
  3958.         pop currentfont /FontMatrix get 0 get 0 ne
  3959.       } if {
  3960.         1 1 index length 1 sub getinterval cvx
  3961.       } if
  3962.       exch cshow
  3963.     } ifelse
  3964.   } ifelse
  3965. } bind def
  3966.  
  3967. /ShowTextBeg  % - ShowTextBeg -
  3968. { //GraphicState /TextRenderingMode get 0 ne {
  3969.         currentpoint newpath moveto
  3970.   } if
  3971. } bind def
  3972.  
  3973. /ShowTextEnd  % - ShowTextEnd -
  3974. { //GraphicState /TextRenderingMode get
  3975.   { dup 1 eq {
  3976.       stroke exit
  3977.     } if
  3978.     dup 2 eq {
  3979.       gsave fill grestore stroke exit
  3980.     } if
  3981.     dup 3 eq {
  3982.       currentpoint newpath moveto
  3983.     } if
  3984.     dup 4 eq {
  3985.       gsave fill grestore clip exit
  3986.     } if
  3987.     dup 5 eq {
  3988.       gsave stroke grestore clip exit
  3989.     } if
  3990.     dup 6 eq {
  3991.       gsave fill grestore gsave stroke grestore fill exit
  3992.     } if
  3993.     dup 7 eq {
  3994.       clip exit
  3995.     } if
  3996.     exit
  3997.   } loop
  3998.   pop
  3999. } bind def
  4000.  
  4001. /ShowTextWithGlyphPositioning % <array> ShowTextWithGlyphPositioning -
  4002. { //ShowTextBeg exec
  4003.   { dup type /stringtype eq {
  4004.       //ShowText exec
  4005.     } {
  4006.       neg 1000 div //GraphicState /FontSize get mul 0 rmoveto
  4007.     } ifelse
  4008.   } forall
  4009.   //ShowTextEnd exec
  4010. } bind def
  4011.  
  4012. /CheckFont % key val CheckFont key val
  4013. { dup /Type get /ExtGState ne {
  4014.     mark (Resource ) 3 index ( must have /Type/ExtGState.) //error exec
  4015.   } if
  4016. } bind def
  4017.  
  4018. /SetTransfer % <operand> SetTransfer -
  4019. {
  4020.   //PDFR_DEBUG { (SetTransfer beg ) print count = } if
  4021.   dup type /arraytype eq 1 index xcheck not and {
  4022.     0 4 getinterval aload pop 
  4023.     setcolortransfer
  4024.   } {
  4025.     settransfer
  4026.   } ifelse
  4027.   //PDFR_DEBUG { (SetTransfer end ) print count = } if
  4028. } bind def
  4029.  
  4030. /CheckExtGState % <id> <obj> CheckExtGState <id> <obj>
  4031. { dup /Type get /ExtGState ne {
  4032.     mark (Resource ) 3 index ( must have /Type/ExtGState.) //error exec
  4033.   } if
  4034. } bind def
  4035.  
  4036. /CheckHalftone % <id> <obj> CheckHalftone <id> <obj>
  4037. { dup /HalftoneType known not {
  4038.     mark (Resource ) 3 index ( must have /HalftoneType.) //error exec
  4039.   } if
  4040. } bind def
  4041.  
  4042. /ResolveFunction % <dict> <name> ResolveFunction <dict> <proc>
  4043. {
  4044.   //PDFR_DEBUG { (ResolveFunction beg ) print dup = count = } if
  4045.   2 copy get //IsObjRef exec {
  4046.     2 copy //DoNothing //ResolveD exec
  4047.     3 copy put pop
  4048.   } if
  4049.   2 copy get dup type /arraytype eq exch xcheck and not {
  4050.     2 copy get
  4051.     dup type /arraytype eq 1 index xcheck not and {
  4052.       dup length 1 sub -1 0 {
  4053.         2 copy //DoNothing ResolveA
  4054.         dup /Identity eq {
  4055.           pop 2 copy {} put
  4056.         } {
  4057.           //FunctionToProc exec
  4058.           3 copy put pop
  4059.         } ifelse
  4060.         pop
  4061.       } for
  4062.     } {
  4063.       dup /Default eq {
  4064.         % Leave it. ExtGState methods will resolve.
  4065.       } {
  4066.         dup /Identity eq {
  4067.           pop {}
  4068.         } { dup type /nametype eq {
  4069.             //spotfunctions exch get
  4070.           } {
  4071.             //FunctionToProc exec
  4072.           } ifelse
  4073.         } ifelse
  4074.       } ifelse
  4075.     } ifelse
  4076.     3 copy put
  4077.     exch pop
  4078.   } {
  4079.     1 index exch get
  4080.   } ifelse
  4081.   //PDFR_DEBUG { (ResolveFunction end ) print dup == count = } if
  4082. } bind def
  4083.  
  4084. /ResolveFunctionSafe % <dict> <name> ResolveFunctionSafe <dict>
  4085. { 2 copy known {
  4086.   //ResolveFunction exec
  4087.   } if
  4088.   pop
  4089. } bind def
  4090.  
  4091. /CreateHalftoneThresholds  % <halftone_dict> CreateHalftoneThresholds <halftone_dict>
  4092. {
  4093.   dup /Thresholds known not {
  4094.     dup /HalftoneType get 10 eq {
  4095.       dup dup //MakeStreamReader exec
  4096.       /Thresholds exch put
  4097.     } if
  4098.     dup /HalftoneType get dup 3 eq exch 6 eq or {
  4099.       dup dup //MakeStreamReader exec
  4100.       //BlockBuffer readstring pop
  4101.       dup length 
  4102.       dup 0 eq {
  4103.         mark (Could not read Thresholds) //error exec
  4104.       } if
  4105.       string copy /Thresholds exch put
  4106.       dup /HalftoneType 3 put % replace Type 6 with Type 3.
  4107.     } if
  4108.   } if
  4109. } bind def
  4110.  
  4111.  
  4112. /SetExtGState % <name> SetExtGState -
  4113. {
  4114.   //PDFReader /CurrentObject get /Context get /Resources get 
  4115.   /ExtGState //DoNothing //ResolveD exec
  4116.   exch //CheckExtGState //ResolveD exec         % s gs
  4117.   dup /LW //knownget exec {
  4118.     setlinewidth
  4119.   } if
  4120.   dup /LC //knownget exec {
  4121.     setlinecap
  4122.   } if
  4123.   dup /LJ //knownget exec {
  4124.     setlinejoin
  4125.   } if
  4126.   dup /ML //knownget exec {
  4127.     setmeterlimit
  4128.   } if
  4129.   dup /D //knownget exec {
  4130.     setdash
  4131.   } if
  4132.   dup /RI //knownget exec {
  4133.     % Ghostscript never writes it.
  4134.     mark (Unimplemented ExtGState.RI) //error exec
  4135.   } if
  4136.   dup /OP //knownget exec {
  4137.     % pdfwrite must take care of stroking/filling
  4138.     setoverprint
  4139.   } if
  4140.   dup /op //knownget exec {
  4141.     setoverprint
  4142.   } if
  4143.   dup /OPM //knownget exec {
  4144.     % pdfwrite must take care of.
  4145.     mark (Unimplemented ExtGState.OPM) //error exec
  4146.   } if
  4147.   dup /Font //knownget exec {
  4148.     % Ghostscript never writes it.
  4149.     mark (Unimplemented ExtGState.Font) //error exec
  4150.   } if
  4151.   dup /BG known {
  4152.     /BG //ResolveFunction exec
  4153.     setblackgeneration
  4154.   } if
  4155.   dup /BG2 known {
  4156.     /BG2 //ResolveFunction exec
  4157.     dup /Default eq {
  4158.       //InitialExtGState /BG2 get
  4159.     } if
  4160.     setblackgeneration
  4161.   } if
  4162.   dup /UCR known {
  4163.     /UCR //ResolveFunction exec
  4164.     setundercolorremoval
  4165.   } if
  4166.   dup /UCR2 known {
  4167.     /UCR2 //ResolveFunction exec
  4168.     dup /Default eq {
  4169.       //InitialExtGState /UCR2 get
  4170.     } if
  4171.     setundercolorremoval
  4172.   } if
  4173.   dup /TR known {
  4174.     /TR //ResolveFunction exec
  4175.     //SetTransfer exec
  4176.   } if
  4177.   dup /TR2 known {
  4178.     /TR2 //ResolveFunction exec
  4179.     dup /Default eq {
  4180.       pop //InitialExtGState /TR2 get
  4181.       aload pop setcolortransfer
  4182.     } {
  4183.       //SetTransfer exec
  4184.     } ifelse
  4185.   } if
  4186.   dup /HT //knownget exec {
  4187.     dup /Default eq {
  4188.       pop //InitialExtGState /HT get
  4189.       sethalftone
  4190.     } {
  4191.       //PDFR_DEBUG { (Ht beg) = } if
  4192.       pop dup /HT //CheckHalftone //ResolveD exec
  4193.       /SpotFunction //ResolveFunctionSafe exec
  4194.       /TransferFunction //ResolveFunctionSafe exec
  4195.       null exch
  4196.       dup /HalftoneType get dup 5 eq exch dup 4 eq exch 2 eq or or {
  4197.         dup {                             % null h n v
  4198.           dup //IsObjRef exec {
  4199.             pop
  4200.             1 index exch //CheckHalftone ResolveD
  4201.           } if
  4202.           dup type /dicttype eq {
  4203.             dup /SpotFunction //ResolveFunctionSafe exec
  4204.             /TransferFunction //ResolveFunctionSafe exec
  4205.             //CreateHalftoneThresholds exec
  4206.             dup /HalftoneType get 5 gt {    % null h n v
  4207.               4 3 roll pop 
  4208.               dup 4 1 roll
  4209.             } if
  4210.           } if
  4211.           pop pop
  4212.         } forall
  4213.       } if
  4214.       //CreateHalftoneThresholds exec
  4215.       //PDFR_DEBUG {
  4216.         (HT:)= 
  4217.         dup { 
  4218.           1 index /Default eq {
  4219.             (Default <<)=
  4220.               exch pop
  4221.               { exch = == } forall
  4222.             (>>)=
  4223.           } {
  4224.             exch = ==
  4225.           } ifelse
  4226.         } forall 
  4227.         (HT end)= flush
  4228.       } if
  4229.       exch dup null ne {
  4230.         (Warning: Ignoring a halftone with a Level 3 component halftone Type ) print dup /HalftoneType get =
  4231.         pop pop
  4232.       } {
  4233.         pop
  4234.         dup /HalftoneType get 5 gt {
  4235.           (Warning: Ignoring a Level 3 halftone Type ) print dup /HalftoneType get =
  4236.           pop
  4237.         } {
  4238.           sethalftone
  4239.         } ifelse
  4240.       } ifelse
  4241.       //PDFR_DEBUG { (HT set)= flush } if
  4242.     } ifelse
  4243.   } if
  4244.   dup /FL //knownget exec {
  4245.     setflattness
  4246.   } if
  4247.   dup /SM //knownget exec {
  4248.     setsmoothness
  4249.   } if
  4250.   dup /SA //knownget exec {
  4251.     setstrokeadjust
  4252.   } if
  4253.   dup /BM //knownget exec {
  4254.     % pdfwrite must take care of.
  4255.     mark (Unimplemented ExtGState.BM) //error exec
  4256.   } if
  4257.   dup /SMask //knownget exec {
  4258.     % pdfwrite must take care of.
  4259.     mark (Unimplemented ExtGState.SMask) //error exec
  4260.   } if
  4261.   dup /CA //knownget exec {
  4262.     % pdfwrite must take care of.
  4263.     mark (Unimplemented ExtGState.CA) //error exec
  4264.   } if
  4265.   dup /ca //knownget exec {
  4266.     % pdfwrite must take care of.
  4267.     mark (Unimplemented ExtGState.ca) //error exec
  4268.   } if
  4269.   dup /AIS //knownget exec {
  4270.     % pdfwrite must take care of.
  4271.     mark (Unimplemented ExtGState.AIS) //error exec
  4272.   } if
  4273.   dup /TK //knownget exec {
  4274.     % pdfwrite must take care of.
  4275.     mark (Unimplemented ExtGState.TK) //error exec
  4276.   } if
  4277.   pop
  4278. } bind def
  4279.  
  4280. /CheckXObject  % <id> <obj> CheckHalftone <id> <obj>
  4281. { dup /Subtype get dup /Image ne exch dup /Form ne exch /PS ne and and {
  4282.     mark (Resource ) 3 index ( must have /Subtype /Image or /Form or /PS.) //error exec
  4283.   } if
  4284. } bind def
  4285.  
  4286. /DoXObject % <name> DoXObject -
  4287. {
  4288.   //PDFReader /CurrentObject get /Context get /Resources get 
  4289.   /XObject //DoNothing //ResolveD exec
  4290.   exch //CheckXObject //ResolveD exec
  4291.   dup /Subtype get
  4292.   dup /Image eq {
  4293.     pop
  4294.     //CompleteOutlineImage exec
  4295.     //DoImage exec
  4296.   } {
  4297.     dup /PS eq {
  4298.       PDFR_DEBUG {
  4299.         (Executing a PS Xobject) =
  4300.       } if
  4301.       pop
  4302.       //RunDelayedStream exec
  4303.     } {
  4304.       dup /Form eq {
  4305.         pop
  4306.         PDFR_DEBUG {
  4307.           (Executing a Form XObject) =
  4308.         } if
  4309.         //PDFReader /CurrentObject get exch
  4310.         dup //PDFReader exch << exch /Context exch >> /CurrentObject exch put
  4311.         dup /Matrix get concat
  4312.         dup /BBox get aload pop exch 3 index sub exch 2 index sub rectclip
  4313.         //RunDelayedStream exec
  4314.         //PDFReader exch /CurrentObject exch put
  4315.       } {
  4316.         mark exch (unimplemented XObject type ) exch //error exec
  4317.       } ifelse
  4318.     } ifelse
  4319.   } ifelse
  4320. } bind def
  4321.  
  4322. /Operators 50 dict begin
  4323.   /q { //GSave exec } bind def
  4324.   /Q { //GRestore exec } bind def
  4325.   /cm { //TempMatrix astore concat } bind def
  4326.   /i { 1 .min setflat } bind def
  4327.   /J /setlinecap load def
  4328.   /d /setdash load def
  4329.   /j /setlinejoin load def
  4330.   /w /setlinewidth load def
  4331.   /M /setmiterlimit load def
  4332.   /gs { SetExtGState } bind def
  4333.  
  4334.   /g /setgray load def
  4335.   /rg /setrgbcolor load def
  4336.   /k /setcmykcolor load def
  4337.   /cs { //ResolveColorSpace exec //SetColorSpaceSafe exec
  4338.       } bind def
  4339.   /sc /setcolor load def
  4340.   /scn { //SetColor exec } bind def
  4341.   /G /setgray load def
  4342.   /RG /setrgbcolor load def
  4343.   /K /setcmykcolor load def
  4344.   /CS //cs def
  4345.   /ri { SetColorRenderingIntent } bind def
  4346.   /SC /setcolor load def
  4347.   /SCN { //SetColor exec } bind def
  4348.  
  4349.   /m /moveto load def
  4350.   /l /lineto load def
  4351.   /c /curveto load def
  4352.   /v { currentpoint 6 2 roll curveto } bind def
  4353.   /y { 2 copy curveto } bind def
  4354.   /re {
  4355.     4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  4356.     closepath
  4357.   } def
  4358.   /h /closepath load def
  4359.   /n /newpath load def
  4360.   /S /stroke load def
  4361.   /s { closepath stroke } bind def
  4362.   /f /fill load def
  4363.   /f* /eofill load def
  4364.   /B { gsave fill grestore stroke } bind def
  4365.   /b { closepath gsave fill grestore stroke } bind def
  4366.   /B* { gsave eofill grestore stroke } bind def
  4367.   /b* { closepath gsave eofill grestore stroke } bind def
  4368.   /W /clip load def
  4369.   /W* /eoclip load def
  4370.   /sh { % Reserved for ps3write.
  4371.         ResolveShading 
  4372.         dup /Background known {
  4373.           gsave
  4374.           dup /ColorSpace get setcolorspace
  4375.           dup /Background get aload pop setcolor
  4376.           pathbbox               % x0 y0 x1 y1
  4377.           2 index sub exch 3 index sub exch
  4378.           rectfill
  4379.           grestore
  4380.         } if
  4381.         shfill 
  4382.       } bind def
  4383.  
  4384.   /Do { //DoXObject exec } bind def
  4385.  
  4386.   /BI { currentglobal false setglobal << } bind def
  4387.   /ID { >>
  4388.         dup /DataSource currentfile 
  4389.         % HACK BEG
  4390.         % This hack provides a compatibility to HP LaserJet 1320,
  4391.         % which sometimes closes the underlying stream when EOD 
  4392.         % is reached in the ASCII85Decode filter.
  4393.         % This portion is not required by the Postscript language definition.
  4394.         2 index /F //knownget exec {
  4395.           /A85 eq {
  4396.             0 (~>) /SubFileDecode filter 
  4397.           } if
  4398.         } if
  4399.         % HACK END
  4400.         put
  4401.         //CompleteInlineImage exec
  4402.         exch setglobal
  4403.         //DoImage exec
  4404.       } bind def
  4405.   /EI {} bind def
  4406.  
  4407.   /BT { gsave //GraphicState /InitialTextMatrix get currentmatrix pop } bind def
  4408.   /ET { grestore } bind def
  4409.   /Tc { //GraphicState exch /CharacterSpacing exch put } bind def
  4410.   /TL { //GraphicState exch /TextLeading exch put } bind def
  4411.   /Tr { //GraphicState exch /TextRenderingMode exch put } bind def
  4412.   /Ts {  % Ghostscript never generates it.
  4413.         mark (Unimplemented SetTextRise) //error exec
  4414.       } bind def
  4415.   /Tw { //GraphicState exch /WordSpacing exch put } bind def
  4416.   /Tz { % Ghostscript never generates it.
  4417.             mark (Unimplemented SetHorizontalTextScaling) //error exec
  4418.       } bind def
  4419.   /Td { translate 0 0 moveto } bind def
  4420.   /TD { dup neg //TL exec //Td exec } bind def
  4421.   /Tm { //GraphicState /InitialTextMatrix get setmatrix
  4422.         //TempMatrix astore concat
  4423.         0 0 moveto } bind def
  4424.   /T* { 0 //GraphicState /TextLeading get neg //Td exec } bind def
  4425.   /Tj { //ShowTextBeg exec  //ShowText exec  //ShowTextEnd exec } bind def
  4426.   /'  { //T* exec  //ShowText exec  //ShowTextEnd exec } bind def
  4427.   /"  { 3 2 roll //Tw exec exch //Tc exec //' exec} bind def
  4428.   /TJ //ShowTextWithGlyphPositioning def
  4429.   /Tf //SetFont def
  4430.  
  4431.   /d0 /setcharwidth load def
  4432.   /d1 /setcachedevice load def
  4433.  
  4434.   /BDC { BeginMarkedContentSequenceWithPropertyList } bind def
  4435.   /BMC { BeginMarkedContentSequence } bind def
  4436.   /EMC { EndMarkedContentSequence } bind def
  4437.   /BX { BeginCompatibilitySection } bind def
  4438.   /EX { EndCompatibilitySection } bind def
  4439.   /DP { DefineMarkedContentPointWithPropertyList } bind def
  4440.   /MP { DefineMarkedContentPoint } bind def
  4441.   /PS { cvx exec } bind def
  4442. currentdict end def
  4443.  
  4444. //PDFR_STREAM {
  4445.   % Rebind operators with a debug tracing.
  4446.   //Operators length dict begin
  4447.   //Operators {                                 % n p
  4448.     exch dup                                    % p n n
  4449.     [ exch //=only /exec load                   % p n [ n =only exec
  4450.       ( ) /print load                           % p n [ n =only exec () print
  4451.       8 7 roll                                  % n [ n =only exec () print p
  4452.       dup type /arraytype eq {
  4453.         /exec load                              % n [ n =only exec () print p exec
  4454.       } if
  4455.       ( ) /print load
  4456.     ] cvx                                       % n {}
  4457.     def
  4458.   } forall
  4459.   currentdict end /Operators exch def
  4460. } if
  4461.  
  4462. % Functions for handling Ghostscript library files that define encodings.
  4463.  
  4464. /.registerencoding
  4465. { pop pop
  4466. } bind def
  4467.  
  4468. /.defineencoding
  4469. { def
  4470. } bind def
  4471.  
  4472. /.findencoding
  4473. { load
  4474. } bind def
  4475.  
  4476.  
  4477. % Leaving the procset on the dictionary stack to provide 
  4478. % definitions of obj, endobj, stream, endstream, R, xref.
  4479. %%EndPrologue
  4480.